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PREFACE 

This  two-volume  report  describes  NAVMAN,  a computer  model  for 
generating  estimates  of  organizational  and  intermediate-level  mainte- 
nance personnel  requirements  for  new  U.S.  Navy  aircraft.  NAVMAN  in- 
corporates into  a single  framework  the  diverse  methods  and  factors 
used  by  the  Navy  to  estimate  below-depot  level  maintenance  personnel 
requirements.  It  provides  a means  that  does  not  now  exist  in  systematic 
form  to  estimate  these  requirements  during  the  early  stages  of  system 
development — that  is,  before  information  about  subsystem  reliability 
and  maintainability  characteristics  and  other  system-peculiar  person- 
nel factors  is  available  in  detail.  Because  NAVMAN  builds  on  current 
Navy  methods,  it  does  not  provide  an  independent  assessment  of  what 
the  personnel  requirements  should  be.  It  does  provide,  however,  a 
reliable  approximation  of  what  the  detailed  Navy  methods  will  eventually 
generate  as  requirements. 

The  development  of  NAVMAN  was  sponsored  by  the  Office  of  the  Di- 
rector of  Cost  and  Economic  Analysis,  Office  of  the  Assistant  Secretary 
of  Defense  (Program  Analysis  and  Evaluation).  The  model  is  intended 
primarily  for  use  by  Cost  and  Economic  Analysis,  and  by  the  Cost  Anal- 
ysis Improvement  Group  (CAIG)  that  it  chairs,  in  support  of  the  Defense 
Systems  Acquisition  Review  Council  (DSARC) . Among  the  responsibilities 
of  CAIG  and  DSARC  is  critical  review  of  the  operating  and  support  cost 
consequences  of  the  acquisition  of  new  weapon  systems.  Maintenance 
personnel  requirements  are  primary  contributors  to  operating  and  support 

costs;  hence  those  requirements  themselves  draw  critical  review.  NAVMAN 

* 

and  a similar  model  for  Air  Force  tactical  aircraft  provide  CAIG  with 
an  analytic  tool  for  estimating  personnel  requirements  early  in  the 
acquisition  review  process,  for  assessing  the  reasonableness  of  esti- 
mates prepared  by  the  military  services,  and  for  systematically 


See  W.  S.  Furry  et  al.,  MANPOWER:  A Model  of  Tactical  Aircraft 
Maintenance  Personnel  Requirements:  Vol.  I , Overview  of  Model  Develop- 
ment  and  Application ; Vol.  IIt  Technical  Appendixes,  The  Rand  Corpora- 
tion, R-2358/1 , 2-PA&E,  April  1979. 
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services,  and  for  systematically  exploring  the  effects  of  changes  in 
certain  system  and  maintenance  policy  variables  on  those  requirements. 

In  addition  to  its  use  by  CAIG,  NAVMAN  should  be  helpful  to  U.S. 
Navy  offices  involved  in  aircraft  system  personnel  determination  pro- 
cesses. It  should  be  of  special  interest  to  the  HARDMAN  Project 

Office,  which  is  concerned  with  determining  the  timeliness  of  Navy 

* 

personnel  requirements.  A major  conclusion  of  the  HARDMAN  study  is 
that  determination  of  personnel  requirements  occurs  too  late  in  the 
weapon  system  acquisition  process  and  fails  to  address  major  issues 
of  manpower  tradeoffs.  HARDMAN  recommends  developing  and  implemen- 
ting analytical  tools  and  models  that  can  define  maintenance  person- 
nel requirements  during  the  early  stages  of  weapon  system  development. 

Volume  I of  this  report,  Model  Development  and  Application,  pro- 
vides a complete  overview  of  Navy  personnel  planning  methods  and  of 
the  features,  input  requirements,  and  outputs  of  NAVMAN.  Volume  II, 
Technical  Appendixes,  provides  information  on  detailed  model  opera- 
tion, model  factors  and  variables,  reliability  and  maintainability 
reference  information,  and  a computer  program  listing. 

The  methods  and  factors  incorporated  in  NAVMAN  are  current  as  of 
mid-1978.  They  are  subject  to  modification,  however,  for  the  Navy 
personnel  planning  process  is  a dynamic  one  and  is  undergoing  impor- 
tant changes.  The  user  of  NAVMAN  should  be  aware  of  the  need  to  up- 
date the  model  periodically. 


Military  Manpower  versus  Hardware  Procurement  Study  (HARDMAN ) , 
Final  Report,  Chief  of  Naval  Operations,  United  States  Navy,  October 
1977. 
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SUMMARY 


This  volume  contains  a variety  of  technical  appendixes  for  those 
who  wish  to  go  beyond  a casual  use  of  the  model,  as  described  in 
Volume  I. 

Appendix  A,  titled  "Detailed  Model  Operation,"  describes  the 
logic  of  the  computer  program.  Also  included  in  this  appendix  is  a 
description  of  maintenance  responsibilities,  personnel  requirements 
determination  methods  and  equations,  and  a step-by-step  explanation 
of  the  model's  computing  routine. 

Appendix  B presents  specific  personnel  factors  that  are  stored 
in  the  program  and  used  for  various  manning  decisions.  Factors  in- 
clude those  developed  to  allocate  aggregate  workloads  to  specific 
work  centers,  minimum  manning  requirements,  and  the  allocation  of 
total  maintenance  hours  to  different  types  of  maintenance  functions. 

Detailed  definition  of  each  NAVMAN  variable  is  provided  in  Ap- 
pendix C.  Each  of  the  model  factors,  primarily  developed  by  the  Navy, 
are  then  explained  in  Appendix  D.  The  factor  descriptions  include 
production  delay,  administrative  support,  facilities  maintenance, 
utilities  task,  personnel  roundoff  tables,  and  various  personnel  al- 
location functions.  Further  Navy  factors  are  presented  in  Appendix 
E — specifically,  the  paygrade  matrices  by  work  center. 

Historical  data  on  the  reliability  and  maintainability  of  Navy 
aircraft  are  provided  in  Appendix  F.  This  information  may  be  useful 


for  the  NAVMAN  user  as  input  information  where  analogous  aircraft  R&M 
is  appropriate. 
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Appendix  A 

DETAILED  MODEL  OPERATION 


Section  III  of  Volume  I presented  a general  overview  of  the  fea- 
tures and  steps  of  the  NAVMAN  computer  model.  This  appendix  dis- 
cusses in  detail  the  logic  contained  in  the  computer  program.  The 
program  variable  names  are  used  in  the  following  discussion  and  are 
defined  in  Appendix  C of  this  volume.  Most  of  the  names  are  self- 
explanatory  and  should  present  little  problem  to  the  reader.  As  a 
further  aid,  the  line  numbers  of  the  computer  program  are  referenced; 
a numbered  listing  of  the  program  is  given  in  Appendix  G.  Finally, 
for  clarity,  the  explanation  is  presented  in  two  sections — organiza- 
tional and  intermediate  maintenance. 

ORGANIZATIONAL  MAINTENANCE  ROUTINE 

Personnel  requirements  for  organizational-level  maintenance  are 
determined  on  a work-center  basis.  Hourly  workloads  for  the  sched- 
uled and  unscheduled  maintenance  of  the  aircraft  and  its  subsystems, 
for  administrative  duties,  for  facilities  maintenance,  and  for  other 
activities  are  totaled  and  divided  by  the  appropriate  personnel  avail- 
ability to  arrive  at  a work  center's  personnel  requirements.  The 
value  for  the  total  number  of  personnel  in  a work  center  is  compared 
to  the  values  in  a paygrade  matrix  to  determine  the  number  of  men  at 
each  skill  level  or  rank. 

Administrative  Work  Centers 

Certain  work  centers  have  no  direct  responsibility  for  the  main- 
tenance of  the  aircraft  but  rather  provide  the  administrative  func- 
tions such  as  supervision,  material  control,  and  data  analysis.  These 
work  centers  are  either  "position"  or  "directed"  manned  (i.e.,  a 
specific  number  of  billets  are  required),  or  are  manned  on  the  basis 
of  standards  that  statistically  relate  hours  to  nonreliability  and 
maintainability  factors  such  as  flying  hours,  equipment  inventories, 
or  sorties.  The  administrative  work  centers,  along  with  the  standard 
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equation  or  directed  manning  vl.  ae  used  in  the  model,  are  shown  in 

Table  A.l.  The  equations  and  directed  manning  values  are  from  the  i 

Squadron  Manning  Document  (SQMD)  model.  The  directed  manning  values 
in  the  SQMD  model  specify  one  person  for  the  appropriate  work  centers 
(010,  030,  060,  100,  200,  and  300;  040  has  a requirement  for  8 people) 
based  on  current  Navy  squadron  sizes  of  from  4 to  14  aircraft.  Be- 
cause NAVMAN  should  have  the  capability  of  considering  larger  size 
squadrons,  assumptions  were  necessary  to  extrapolate  values  beyond 
these  historical  squadron  sizes.  Discussions  with  SQMD  analysts  sug- 
gested the  personnel  values  at  various  squadron  sizes  shown  in  Table 
A.l  for  the  directed  manned  work  centers. 

Administrative  Support  (AS)  hours  for  work  centers  020  and  050 
are  determined  from  statistical  equations.  Facilities  Maintenance 
(FM)  hours  (determined  as  a percentage  of  AS  hours)  and  Utilities 
Task  (UT)  hours  (a  fixed  additive  depending  on  the  type  of  aircraft 
being  considered)  are  then  added.  The  AS  hours  for  work  center  140 
are  determined  from  the  spread  of  the  total  AS  hours  for  the  Relia- 
bility and  Maintainability  (R&M)  work  centers — a process  that  is  de- 
scribed below. 

Work  center  320,  Troubleshooters,  is  manned  only  for  fixed  wing 
fighter  (VF) , attack  (VA),  or  antisubmarine  (VS)  aircraft  when  at  sea. 

For  all  other  aircraft  and  for  the  shore  calculations,  the  hours  cal- 
culated by  the  standard  equation  are  added  to  the  workloads  of  various 
other  work  centers. 


R&M  Work  Centers 

Workloads  and  therefore  personnel  requirements  for  the  R&M  work 
centers  are  determined  from  the  R&M  and  flying  program  input  data 
supplied  by  the  user.  Since  NAVMAN  calculates  requirements  on  a work- 
center  basis,  the  preferred  set  of  factor  Inputs  are  Corrective  Mainte- 
nance (CM)  and  Preventive  Maintenance  (PM)  factors  for  each  work 
center.  However,  during  the  early  stages  of  system  acquisition  to 
which  the  model  is  oriented,  R&M  requirements  are  specified  as  design 
goals  and,  commonly,  at  very  aggregate  levels.  The  design  goals  are 
often  based  on  the  performance  of  current  aircraft  systems  of  a similar 
type  (i.e.,  a fighter  aircraft  or  a fire  control  radar)  taking  into 
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Table  A.  1 


ORGANIZATIONAL  MAINTENANCE:  DIRECTED  AND  STANDARD  MANNED  WORK  CENTERS 


Work  Center 

Standard 

010  Maintenance  Officer 

030  Maintenance  Administration 

060  Data  Analysis 

UE  Men 

0-17  1 

18-23  2 

24-29  3 

30-  4 

040  Quality  Assurance 

UE  Men 

0-17  8 

18-23  10 

24-29  12 

30-  14 

020  Maintenance/Material  Control 

Calculate  AS  hours;  add  any  FM  and 

UT  hours;  divide  by  availability 
to  get  personnel;  add  the  number 
of  directed  men  as  a function  of 
the  number  of  shifts. 

AS  hours  = 124.6715  + .3652  (FH) 

+ FM  hours  + UT  hours 

+ directed  men 

Shifts  Directed  Men 

1 2 

2 3 

3 4 

050  Material  Control 

Calculate  AS  hours;  add  any  FM 
and  UT  hours;  divide  by  avail- 
ability to  get  personnel. 

AS  hours  = 57.7481  + .3625  (FH) (RF) 

+ FM  hours  + UT  hours 

140  Planned  Maintenance 

AS  hours  from  percent  spread  + 

FM  hours 

100  Aircraft  Division 

200  Avionics/Armament  Division 

300  Line  Division 

1 man 

320  Troubleshooters 

For  all  other  sea  and  for  all  shore 
squadrons  there  are  no  people  as- 
signed to  this  work  center.  The 
hours  calculated  get  added  to  the 
indicated  work  centers 

Sea:  Fixed  Wing  Fighter,  Attack  and 
Antisubmarine  Squadrons 

5 men 

Shore  and  Other  Sea 

Hours  = (S) (L) / (X) 

Hours  go  to  WCs  110,  120  (2  times 
hours),  210,  and  220 

NOTES : 
Variables 


FH*:  Flying  hours  per  week 
UE*:  Number  of  aircraft  per  squadron 
RF:  Requisition  factor  per  flying  hour 
L:  Standby  allowance  per  launch 
X:  Average  number  of  sorties  per  launch 
S*:  Number  of  sorties  per  week 

*User  Inputs;  values  for  remaining  variables  are  stored  in 
the  model. 
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consideration  any  expected  R&M  improvements  due  to  advances  in  the 
state  of  the  art  and/or  technological  change.  To  provide  the  maxi- 
mum user  flexibility,  NAVMAN  accepts  a wide  range  of  possible  R&M 
values.  The  R&M  input  or  ■•"ns  include: 

o The  type  of  maintenance  workload.  Data  can  be  entered  as 
PM,  CM,  or  a combination  of  the  two  (termed  Total  Mainte- 
nance (TM)  in  the  model).  If  the  detail  is  available,  sepa- 
rate values  should  be  entered  for  both  CM  and  PM.  If  the 
distinction  cannot  be  made,  TM  data  are  entered.  The  model, 
using  percentages  based  on  current  Navy  aircraft,  will  break 
the  TM  hours  into  scheduled  and  unscheduled  workloads, 
o Work  center  or  Work  Unit  Code  (WUC)  data.  The  user  can  input 
R&M  data  on  a work  center  or  a 2-digit  WUC  basis.  Analyses 
showed  that  a clean  crossover  from  WUCs  to  work  centers  does 
not  exist.  Many  of  the  WUCs  at  the  2-digit  level  indicate  a 
workload  for  multiple  work  centers.  Because  of  this  problem, 
the  model  accumulates  all  workload  reported  in  terms  of  WUCs 
and  spreads  the  total  workload  to  work  centers  on  the  basis 
of  percentages  developed  from  current  Navy  aircraft, 
o Aggregate  or  disaggregate  data.  If  the  user  cannot  define 
the  data  on  a work-center  or  WUC  basis,  the  model  will 
spread  an  aggregate  figure  to  the  individual  work  centers. 

The  user  can  enter  a combination  of  disaggregate  and  aggre- 
gate data.  For  example,  if  values  are  known  for  certain 
shops  because  of  the  use  of  existing  equipment,  the  user  can 
enter  these  disaggregate  data  and  then  an  aggregate  figure 
for  the  remaining  work  centers.  The  model  recognizes  the 
disaggregate  workloads  and  adjusts  the  percentage  spreads 
to  allocate  the  aggregate  workload  to  the  remaining  work 
centers. 

o The  form  of  the  input  variables.  The  model  will  accept,  for 
CM  or  TM  data,  maintenance  manhours  per  flying  hour,  mainte- 
nance manhours  per  sortie,  and  mean  time  between  failure/mean 
time  to  repair  values,  or  any  combination  of  the  factors. 


\ 


For  PM,  the  model  requires  maintenance  manhours  per  flying 
hour,  per  sortie,  per  flying  day,  and  per  week.  If  MTBF/ 
MTTR  data  are  used,  more  than  one  set  of  values  for  a work 
center  can  be  entered.  This  would  be  appropriate  for  work 
centers  with  multiple  equipment  responsibilities, 
o Whether  data  do  or  do  not  include  indirect  factors.  The 
direct  maintenance  workload  must  be  augmented  by  indirect 
factors  to  account  for  Productive  Delay  (PD),  Productivity 
Allowance  (PA),  and  Make  Ready/Put  Away  (MR/PA).  It  is 
assumed  that  all  PM  inputs  do  not  include  the  indirect  hours 
and  therefore  must  be  adjusted  to  include  the  indirect  work- 
load. CM  data  will  include  PA  and  MR/PA  time  if  the  data 
are  taken  from  the  3M  system.  However,  if  contractor  data 
or  estimates  are  used,  these  indirect  hours  may  not  be  in- 
cluded in  the  CM  workload.  The  user  can  specify  if  the  in- 
direct hours  are  or  are  not  included  and  the  model  will  make 
the  proper  adjustments.  TM  data  are  assumed  to  Include  no 
indirect  hours. 

The  model  converts  the  input  data  to  a work  center's  direct  sched- 
uled and  unscheduled  aircraft  maintenance  workload  and  then  adds  in- 
direct maintenance  hours,  AS,  FM,  and  UT  hours  to  arrive  at  total 
workload. 


Organizational  Maintenance  Methods  and  Equations 

The  steps  to  determine  personnel  requirements  for  organizational- 
level  maintenance  are  outlined  as  follows: 

1*  Read  organizational  data  and  determine  weekly  flying  program 
values . 

2.  Read  any  optional  override  values  specified  by  the  user. 

3.  Read  R&M  input  data. 

4.  Compute  raw  PM  and  raw  CM  workload  for  each  work  center. 

5.  Add  indirect  factors  to  raw  workloads  to  get  total  PM  and 
CM  workloads  for  each  work  center. 
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6.  Calculate  total  AS  workload  and  spread  to  the  individual  work 
centers. 

7.  Calculate  FM  workload  for  each  work  center. 

8.  Add  any  UT  hours  to  sea  workloads. 

9.  Calculate  troubleshooter  workload  for  shore  squadrons  and  sea 
squadrons  which  are  not  VF,  VA,  or  VS.  Allocate  this  work- 
load to  the  appropriate  work  centers. 

10.  Convert  total  hourly  workloads  for  each  work  center  to  frac- 
tional personnel  requirements  by  dividing  by  the  appropriate 
availability. 

11.  Ensure  that  the  minimum  number  of  required  personnel  are 
assigned  to  the  weapons  work  center  (WC  230) . 

12.  Convert  fractional  men  to  integer  requirements  using  roundoff 
matrices.  Set  plus  and  minus  hour  bounds  on  the  workloads. 

13.  Ensure  the  minimum  of  2 plane  captains  per  aircraft  for  the 
sea  environment. 

14.  Set  personnel  and  paygrade  requirements  for  directed  or  stan- 
dard manned  work  centers. 

15.  Set  paygrade  requirements  for  R&M  work  centers. 

16.  Determine  total  personnel  and  paygrade  requirements  for  or- 
ganizational-level maintenance. 

17.  Print  output  reports. 

18.  Perform  any  sensitivity  analysis  specified  by  the  user. 

The  subsequent  paragraphs  will  explain  these  steps  in  terms  of 
the  methods  and  equations  used  to  make  the  necessary  computations  in 
the  NAVMAN  model. 

1.  Read  organizational  data  and  determine  weekly  flying  program 
values  (lines  461  to  507) 

The  necessary  organizational  inputs  are  listed  in  r»ection  IV 
of  Volume  I.  These  values  are  used  to  determine  the  following 
variables  in  the  model  (the  same  equations,  with  changes  in  the 
appropriate  variables,  are  used  for  sea  and  shore  values): 
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TOTAL  AIRCRAFT  « (AIRCRAFT  PER  SQUADRON)  (NUMBER  OF  SQUADRONS) 

SORTIES  (PER)  WEEK  = (SORTIE  RATE)  (FLYING  DAYS  WEEK)  (AIR- 
CRAFT PER  SQUADRON) 

FLYING  HOURS  (PER)  WEEK  - (SORTIES  WEEK)  (SORTIE  LENGTH) 


The  type  of  aircraft  affects  certain  variables  in  the  model 
that  are  used  in  the  calculation  of  various  indirect  hours.  A 
flag,  AIRCRAFT_INDX,  is  set  based  on  the  aircraft  type  specified 
by  the  user  and  is  used  to  point  to  the  appropriate  members  of 
various  arrays  stored  in  the  model.  Page  1 of  the  output  reports 
is  also  printed  at  this  time. 

2.  Read  any  optional  override  values  specified  by  the  user 

(lines  508  to  703) 

There  are  a number  of  non-SQMD  factors  stored  in  the  model 
that  are  used  to  calculate  portions  of  a total  workload  or  to 
spread  aggregate  workloads  to  work  centers  or  to  type  of  mainte- 
nance. These  factors  were  developed  by  examining  the  experience 
of  current  Navy  aircraft.  The  user  has  the  option  of  overriding 
any  of  these  stored  values  with  factors  he  believes  are  more  re- 
presentative of  the  given  situation.  The  values  that  can  be 
overriden  are  listed  below.  The  required  input  format  is  given 
in  Section  IV  of  Volume  I. 


Variable 


CM_PRCT_0THER  or  CM_PRCT_VFA 
WORKCENTER_TM_SPREAD_OTHER  or  _VFA 
WORKCENTER_PM_SPREAD_OTHER  or  _VFA 
WORKCENTER_CM_SPREAD_OTHER  or  _VFA 
I_LEVEL_SPREAD 

SUPPORT_EQUIPMENT_HOURS_SEA  and  _SH0RE 
GSE_HOURS_PER_AC_SEA  and  _SH0RE 
MINIMUM  MEN 


3A11  these  variables,  except  code  » 7,  are  arrays. 


tv*.-.  * J u 
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An  additional  optional  input  (code  = 9)  that  can  be  used  is 
for  the  variables  OTHER_HOURS_SEA  and  OTHER_HOURS_SHORE . This 
input  will  allow  the  user  to  preset  a prescribed  number  of  hours 
(workload)  into  one  or  more  of  the  work  centers.  This  may  be 
desired  if  information  indicates  a workload  not  covered  by  normal 
NAVMAN  procedures. 

3 & 4.  Read  R&M  input  data  and  calculate  raw  PM  and  CM  workloads 
(lines  704  to  873) 

As  indicated  previously,  NAVMAN  has  the  capability  of  accept- 
ing a wide  range  of  R&M  input  data.  The  end  objective  is  to 
determine  the  raw  PM  and  the  raw  CM  workload  for  each  work 
center.  The  steps  taken  by  the  model  to  determine  these  values 
are  a function  of  the  input  data  supplied  by  the  user. 

The  first  step  is  to  determine  the  index  (member)  of  the 
workload  arrays  that  must  be  loaded  for  a given  R&M  data  card. 

For  work-center  data,  this  index  corresponds  to  one  of  the  22 
work  oenters  in  organizational  maintenance  (the  specific  one 
being  supplied  as  an  input  field).  For  WUC  data  or  aggregate 
data  (which  has  a work  center  or  WUC  indicator  of  999),  the 
index  is  set  equal  to  23,  or  the  last  member  of  all  the  work- 
load arrays. 

Next,  the  model  determines  which  workload  array  to  load — 
either  the  PM,  CM,  or  TM  array  (the  specific  one  again  being 
supplied  as  input).  Once  the  specific  array  and  member  of 
that  array  are  determined,  the  model  calculates  the  workload 
based  on  the  form  of  the  input  data — either  maintenance  man- 
hours per  flying  hour  (MMH/FH)  or  per  sortie  (MMH/S) , or 
MTBF/MTTR.  If  CM  workloads  are  calculated,  the  model  further 
checks  the  input  parameters  to  determine  if  indirect  hours  for 
MR/PA  and  PA  must  be  added.  The  equation  for  adding  these 
indirect  hours  is: 

RAW  CM  = (RAWER  CM)  (1  + MR/PA  + PA) 
where  RAWER  CM  is  the  workload  calculated  from  the  input  values. 
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Af ter  all  Che  R&M  input  cards  are  read,  the  last  element 
(INDEX  * 23)  of  each  workload  array  is  checked  to  determine  if 
any  aggregate  or  WUC  workloads  need  to  be  spread  to  the  indi- 
vidual work  centers  (by  AD_SPREAD  routine).  Finally,  any  TM 

workloads  are  broken  into  PM  and  CM  workloads  (by  CWTM_CALC 

* 

routine)  and  loaded  into  the  appropriate  arrays.  At  this 
point,  each  R&M  work  center  should  have  a value  in  the  appro- 
priate member  of  the  raw  PM  and  CM  arrays. 

5.  Add  indirect  factors  to  get  total  PM  and  CM  hours  (lines  874 
to  893) 

After  the  raw  workloads  are  determined,  indirect  hours  are 
added  to  arrive  at  total  CM  hours.  The  following  equations  are 
used  for  this  computation: 

[: 

TOTAL  CM  * (RAW  CM)  (1  + PD) 

TOTAL  PM  - [RAW  PM  x (1  + MR/PA) ] [1  + (PA  + PD)] 

6.  Calculate  total  AS  hours  and  spread  the  total  to  work  centers 
(lines  894  to  918) 

AS  workload  is  determined  as: 

TOTAL  AS  HOURS  = 306.9048  + .38519 (TOTAL  RAW  PM  + RAW  CM) 

These  hours  are  distributed  to  the  individual  work  centers  on 
the  basis  of  factors  that  vary  by  type  of  aircraft. 

7.  Calculate  FM  workload  (lines  919  to  955) 

FM  hours  for  each  work  center  are  computed  as: 

FM  (by  work  center)  = (AS  by  work  center)  (work  center  FM%) 

Any  FM  hours  are  loaded  into  0THER_H0URS.  The  AS  hours  for  work 
centers  020  and  050  are  also  calculated  at  this  point  in  order 
to  calculate  FM  hours. 


The  CM  portion  of  TM  hours  is  assumed  to  contain  no  indirect 
factors  and  the  equation  for  RAW  CM  is  used. 


Add  any  UT  hours  to  sea  environment  (lines  956  to  974 


UT  hours  are  applicable  to  sea  duty  only  and  vary  by  work 
center  and  aircraft  type.  UT  hours  are  loaded  into  OTHER  HOURS 


9.  Calculate  troubleshooters  workload  (lines  975  to  1015 


The  procedure  used  to  calculate  troubleshooters  workload  is 
given  in  Table  A.l.  For  VF,  VA,  and  VS  squadrons  at  sea,  5 
people  are  assigned  to  work  center  320.  For  other  sea  squadrons 
and  for  shore  squadrons,  work  center  320  is  not  manned  but  the 
workload  due  to  troubleshooting  action  is  added  to  the  0THER_ 
HOURS  for  work  center  110,  120  (two  times  the  hours),  210,  and 


0.  Computation  of  billets  (lines  1016  to  1028) 


After  total  workload  is  calculated  for  each  work  center, 
personnel  requirements  (billets)  are  computed  by  dividing  by 
the  appropriate  personnel  availabilities.  The  standard  work 
weeks  used  in  this  calculation  are  as  follows: 

Shore-based:  31.9  productive  hours  per  week  of  a 40-hour  week 
VP-deployed:  51.0  productive  hours  per  week  of  a 57-hour  week 
Carrier-based:  63.0  productive  hours  per  week  of  a 70-hour  week 

SOURCE:  OPNAVINST  5330.8. 

The  equation  to  compute  personnel  billets  is: 


Work  center  billets 


PM  + CM  + AS  + OTHER 


productive  hours  per  week 


12.  Convert  to  integer  personnel  requirements  Clines  1044  to 


The  fractional  personnel  are  converted  to  integer  require- 
ments using  the  appropriate  roundoff  table.  Also,  a PLUS_HOURS 
and  a MINUS_HOURS  value  is  determined  that  indicates  the  number 


r 


-11- 

of  hours  (workload)  that  can  be  added  to  or  subtracted  from  the 
work-center  workload  before  the  billet  requirement  would  change. 

11  & 13.  Set  minimum  levels  (lines  1029  to  1043  and  lines  1161 
to  1167) 

Because  work  center  230  requirements  are  driven  by  the  need 
to  have  a certain  number  and  size  of  load  crews  available  during 
wartime  operations,  a minimum  value  is  determined  by  multiplying 
the  number  of  aircraft  in  a squadron  by  the  minimum  number  of  men 
per  aircraft.  This  minimum  requirement  is  compared  to  the  re- 
quirement from  the  work-center  workload  and  the  maximum  of  the  two 
numbers  is  used  as  the  personnel  requirement  for  work  center  230. 

Work  center  310,  Plane  Captains,  also  has  a minimum  require- 
ment of  two  personnel  per  aircraft  when  at  sea  in  order  to  pro- 
vide 24-hour  coverage  of  the  aircraft. 

14.  Determine  requirements  for  standard  manned  work  centers 
(lines  1175  to  1273) 

Using  the  methods  described  in  Table  A.l,  the  requirements 
for  non-R&M  work  centers  are  determined.  In  addition  to  the  total 
work-center  billets,  the  paygrade  matrices  are  used  to  determine 
the  appropriate  number  of  personnel  of  the  various  skill  levels. 

15.  Determine  the  quality  of  the  billets  for  production  work 
centers  (lines  1274  to  1373) 

Work-center  personnel  are  distributed  among  paygrades  (E-2 
to  E-9)  using  an  authorization  level/ paygrade  matrix  developed 
from  the  BUPERS  Occupational  Classification  System,  derived  pay- 
grades  as  estimated  through  operational  audit  techniques,  and  the 
OSD  "top-six"  guidelines.  Separate  matrices  are  used  for  produc- 
tion work  centers,  line  divisions,  and  unique  work  centers. 

16  & 17.  Determine  total  requirements  and  print  output  reports 
(lines  1374  to  1397) 

The  quality  and  quantity  of  billets  are  totaled  and  the  out- 
put reports  are  printed.  A description  of  the  output  reports  is 
given  in  Section  IV  of  Volume  I. 
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18.  Perform  any  sensitivity  analysis  (lines  1398  to  1473) 

Any  sensitivity  analysis  desired  by  the  user  is  accomplished 
at  this  point.  The  model  resets  certain  values  according  to  the 
value  of  the  sensitivity  variable,  zeroes  out  the  appropriate 
requirements  arrays,  and  then  branches  to  the  appropriate  place 
in  the  model  to  recalculate  requirements. 

The  sensitivity  variables  accepted  as  inputs  are: 


Code 


Variable 


1 

2 

3 

4 


AIRCRAFT_PER_SQUADRON 
SORT  I E_RAT  E_S  EA  and  _SHORE 
FLYING_DAYS_WEEK_SEA  and  _SHORE 
R&M  VALUES 


For  the  first  three  variables,  the  user  must  input  the  new  values 
to  be  considered.  These  values  replace  the  original  inputs  and 
any  succeeding  analysis  will  use  the  latest  values  entered.  That 
is,  if  the  sortie  rate  is  changed  by  a sensitivity  input,  any 
additional  sensitivity  runs  will  use  the  new  value  in  the  calcu- 
lations. 

Sensitivities  on  the  R&M  data  allow  the  user  to  apply  a factor 
(input  value)  to  the  PM  data  or  to  the  CM  data  or  to  both  (input 
value).  Care  must  be  taken  that  the  sensitivity  inputs  accom- 
plish the  results  desired  by  the  user.  As  mentioned,  sensitivity 
values  replace  stored  values  in  the  model.  Furthermore,  codes  1 
and  4 change  the  raw  PM  and  raw  CM  values  for  each  work  center, 
while  codes  2 and  3 reread  the  original  R&M  data  to  calculate 
new  values.  If  a sensitivity  run  on  code  1 is  made  follcwed  by 
a run  for  code  4,  the  latter  sensitivity  will  adjust  the  workloads 
calculated  by  the  former  sensitivity  and  not  the  original  workloads. 


INTERMEDIATE  MAINTENANCE  ROUTINE 

Each  aircraft  carrier  and  every  Naval  Air  Station  (NAS)  has  an 
Aircraft  Intermediate  Maintenance  Department  (AIMD)  responsible  for 
the  intermediate-level  maintenance  of  all  aircraft  on  the  carrier  or 
at  the  NAS.  This  centralized  facility  is  composed  of  a permanent 
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t cadre  of  ship  or  shore  personnel,  who  perform  administrative,  super- 

vision,  overhead,  and  support  equipment  maintenance  functions,  and 
Temporary  Assigned  Duty  (TAD)  personnel  assigned  from  the  aircraft 
squadrons.  These  TAD  personnel  are  identified  in  an  aircraft's 
SQMD  and  provide  the  specific  repair  capabilities  required  by  the  AIMD. 
The  personnel  requirements  for  these  separate  components  are  estimated 
on  the  basis  of  standard  Navy  equations  (for  the  permanent  cadre)  and 
the  R&M  of  the  aircraft  (for  the  TAD  personnel).  Since  the  personnel 
requirements  are  Independent  of  the  flying-hour  program,  the  number  of 
aircraft  is  the  primary  variable  used  to  estimate  requirements.  As 
such,  NAVMAN  executes  the  AIMD  routine  only  for  the  initial,  base  case 
or  for  sensitivity  analysis  when  the  number  of  aircraft  per  squadron 
is  changed. 

The  steps  taken  by  NAVMAN  to  calculate  each  of  these  components 
of  intermediate  maintenance  personnel  are  described  below. 

TAD  Calculations  (lines  1520  to  1563) 

The  detailed  steps  are: 

1.  Read  the  Intermediate  maintenance  manhours  per  aircraft  per 
week  and  the  minimum  number  of  avionics  skills  required. 

2.  From  the  input  R&M  value  and  the  squadron  size,  calculate 
TOTAL_I_LEVEL_MANHOURS  per  squadron. 

3.  Using  override  values  specified  by  the  user  or  factors 
stored  in  the  model,  spread  the  total  manhours  to  the  five 
production  divisions  of  the  AIMD.  The  percentage  spreads 
(I_LEVEL_SPREAD)  are  a function  of  the  type  of  aircraft. 

4.  For  each  division,  add  the  support  (equipment)  maintenance 
(SM)  workload  calculated  from  a factor  per  aircraft  and  the 
number  of  aircraft.  The  SM  factors  vary  for  each  division 
and  for  the  particular  environment  (sea  or  shore) . The 
factors  are  stored  in  the  model  but  may  be  overriden  with 
user  inputs. 

5.  Divide  the  sum  of  the  aircraft  and  SM  workloads  by  the 
appropriate  availability  to  obtain  a personnel  figure. 
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6.  Calculate  AS  hours  for  each  division  as  a linear  function 

of  the  personnel  figure  calculated  in  Step  5.  The  I_  LEVEL_ 
AS_COEFF  varies  for  each  division. 

7.  Add  AS  hours  to  the  aircraft  and  SM  hours  to  find  the  total 
workload  for  each  of  the  five  production  divisions. 

8.  Divide  by  personnel  availability  and  round  to  an  integer 
number . 

9.  Compare  the  billets  calculated  for  the  Avionics  Division  to 
the  minimum  number  of  avionics  skills  required  to  ensure 
sufficient  skill  coverage. 

The  AIMD  TAD  requirements  for  a squadron  and  for  the  total  fleet  are 
printed  after  the  paygrade  matrix  on  output  report  3.  The  Individual 
division  personnel  requirements  are  listed  after  the  organizational- 
level  personnel  requirements  on  output  report  4. 

Permanent  Cadre  Calculations  (lines  1564  to  1700) 

The  permanent  cadre  requirements  calculated  by  NAVMAN  are  based 

* 

on  standard  equations  contained  in  ACM-02,  the  Navy  model  for 
estimating  intermediate-level  maintenance  personnel  requirements. 

The  ACM-02  equations  incorporated  in  NAVMAN  use  number  of  aircraft 
as  the  predicting  variable.  The  remaining  positions  manned  by  ACM-02 
are  independent  of  any  changes  caused  by  the  addition  of  aircratt 
to  a carrier  or  a NAS.  The  work  centers  considered  and  the  appropri- 
ate predicting  methodology  are  listed  in  Table  A. 2. 

NAVMAN  calculates  the  additional  permanent  personnel  required  on 
a carrier  and  at  a NAS  because  the  new  aircraft  are  being  added.  The 
steps  used  in  this  calculation  are: 

1.  Read  the  total  number  of  aircraft  on  a carrier  and  the  number 
of  squadrons  of  the  new  aircraft  that  will  be  stationed  on  a 
carrier. 


Work  Center  Staffing  Standards:  Aircraft  Maintenance — Perform 
Intermediate  Aircraft  Maintenance — ACM-02 , NAVMMACLANT,  January  13, 
1978. 
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Table  A.  2 

PERMANENT  CADRE  INTERMEDIATE  MAINTENANCE  PERSONNEL  EQUATIONS 


Precision  Measurement  Equipment  Shop: 

Maintenance  Hours  = 11.855  + .08987X  + .0003166x2 


AS  Hours  = ggJfaint,  Hours  x 4<72708 
Available  Hours 


Manhours  = AS  Hours  + Maintenance  Hours 


GSE  Production  Control: 

Manhours  = 10.224  + .2386X 


GSE  Material  Control: 

Manhours  = 4.86  + .2257X 


GSE  Production  Work  Centers: 

Shore:  Maint.  Hours  = 1.02X 
Sea:  Maint.  Hours  = 1.95X 


AS  Hours  (shore) 


GSE  Maint.  Hours  Shore 


x 5.0861  + 46.25 


' ' Available  Hours  ~ ~ — ~ ■ 

. „ / \ GSE  Maint.  Hours  Sea  ,,  ^ nori  . t.c  oc 

AS  Hours  (sea)  = Available  Hours  X 5'0861  + 46‘25 

Manhours  = AS  Hours  + Maintenance  Hours 


NOTES:  X = number  of  aircraft;  personnel  * Manhours/Available  Hours. 
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2.  For  each  NAS,  read  the  number  of  aircraft  at  the  NAS  before 
the  aircraft  are  added  and  the  number  of  squadrons  of  the 


new  aircraft  that  will  be  stationed  at  the  NAS. 


3.  Using  the  equations  in  Table  A. 2,  calculate  the  number  of 
personnel  required  on  a carrier  and  at  each  NAS  after  the 
new  aircraft  are  added. 

4.  Repeat  Step  3 using  the  number  of  aircraft  before  the  new 
aircraft  are  added  as  the  predicting  variable. 

5.  Calculate  the  difference  between  the  personnel  in  Steps  3 
and  4. 

The  permanent  cadre  changes  due  to  the  new  aircraft  are  shown 
for  a carrier  and  for  each  NAS  on  output  report  3. 


r 


-17- 


Appendix  B 

I 

DEVELOPMENT  OF  MODEL  FACTORS 


The  Navy's  Squadron  Manning  Document  (organizational  level)  and 
ACM-02  (intermediate  level)  maintenance  personnel  estimating  models 
served  as  the  foundation  for  the  NAVMAN  model.  Both  of  these  Navy 
personnel  models  were  designed  for  use  after  an  aircraft  has  been  in 
the  operational  inventory  for  a period  of  time  and  therefore  detailed 
maintenance  workloads  are  typically  available  from  the  3M  maintenance 
data  collection  system.  Also,  general  and  specific  factors  contained 
in  these  models  were  developed  by  analysis  of  historical  data.  The 
NAVMAN  model,  however,  has  been  designed  for  aircraft  that  are  in  the 
conceptual  or  development  stages  of  acquisition.  During  this  early 
time  frame,  information  on  operating  characteristics  and  anticipated 
maintenance  workloads  is  typically  not  known  on  a detailed  basis. 

The  Navy  factors  that  were  general  to  all  aircraft  (e.g..  Adminis- 
trative Support,  Facilities  Maintenance  percentage  spreads)  were  in- 
corporated into  the  NAVMAN  model.  However,  factors  that  were  specific 
to  certain  aircraft  (e.g.,  minimum  manning  for  work  center  230,  spreads 
of  total  I-level  workload  to  specific  work  centers)  had  to  be  developed 
for  the  general  aircraft  categories  of  NAVMAN.  Also,  in  order  to  pro- 
vide various  levels  of  maintenance  input  options  to  the  user,  it  was 
necessary  to  generate  general  factors  that  could  spread  an  aggregate 
workload  to  specific  work  centers  or  to  specific  types  of  maintenance 
work  (preventive  or  corrective). 

The  non-Navy  factors  used  in  NAVMAN  were  developed  from  the  main- 
tenance information  contained  in  ACM-02  and  current  aircrafts'  Squadron 
Manning  Documents  (SQMDs) . These  factors  are  stored  in  the  model  but 
the  user  has  the  option,  through  model  inputs,  of  overriding  any  of 
the  factors  if  information  is  available  that  suggests  that  other  fac- 
tors may  be  more  appropriate.  The  remainder  of  this  appendix  outlines 
the  data  and  analysis  used  to  generate  these  factors. 
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PERCENTAGE  SPREAD  OF  TOTAL  WORKLOAD  TO  WORK  CENTERS 

* 

Many  of  the  factors  contained  in  NAVMAN  vary  by  work  center. 
Personnel  requirements  for  organizational  maintenance  are  therefore 
calculated  on  a work-center  basis.  However,  a user  may  not  have  avail- 
able detailed  maintenance  workload  data  but  rather  only  an  aggregate 
maintenance  figure  such  as  total  maintenance  manhours  per  flying  hour. 

It  was  therefore  necessary  to  develop  percentages  that  would  spread 
a total  maintenance  workload  to  the  individual  work  centers. 

Table  B.l  shows  for  a number  of  aircraft  the  percentage  of  the 
total  maintenance  workload  applicable  to  specific  work  centers.  These 
values  are  based  on  workloads  from  the  appropriate  SQMDs  and  are  dif- 
ferentiated by  Preventive  Maintenance  (PM),  Corrective  Maintenance 
(CM),  and  Total  Maintenance  (TM) . Because  sufficient  data  were  not 
available  for  all  the  different  types  of  aircraft  considered  in  NAVMAN, 
composite  values  were  formed  for  fighter  and  attack  aircraft  versus 
other  types  of  aircraft.  This  appeared  appropriate  because  fighter 
and  attack  aircraft  have  much  higher  workloads  in  the  armament-related 
work  centers  (211  and  230),  while  the  other  aircraft  have  much  higher 
avionics-related  workloads.  These  composite  percentages  are  the  basis 
of  the  total  workload  to  work-center  values  contained  in  NAVMAN. 

These  values  are  also  used  to  spread  workloads  entered  by  Work  Unit 
Codes  to  the  appropriate  work  centers. 

One  further  point  should  be  mentioned  concerning  the  percentage 
spreads.  No  data  were  available  that  showed  a workload  for  work  center 
240,  the  Photo  Shop.  Therefore,  if  an  aircraft  requires  a workload 
in  work  center  240,  specific  input  data  must  be  entered  for  that  center. 


PERCENTAGE  SPREAD  OF  TOTAL  MAINTENANCE  TO  PREVENTIVE /CORRECTIVE 
MAINTENANCE 

Maintenance  inputs  to  NAVMAN  represent  direct  maintenance  work- 
loads. Indirect  factors  for  Make  Ready/Put  Away  (MR/PA),  Production 
Delay  (PD),  and  Productive  Allowance  (PA)  must  be  added  to  arrive  at 


All  the  factors  used  in  NAVMAN  are  listed  in  Appendix  D. 

+WORKCENTER_TM_SPREAD_VFA,  WORKCENTER_CM_SPREAD_VFA,  etc.  These 
spreads  are  shown  in  Table  D.15  of  Appendix  D. 
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TM  workloads.  The  application  of  these  factors  vary  for  PM  and  CM. 

Therefore,  if  TM  data  are  used  as  inputs,  factors  are  required  to 
break  the  total  direct  hours  into  preventive  and  corrective  hours. 

The  percentage  of  the  total  work-center  workload  that  is  preven- 
tive and  corrective  maintenance  is  shown  for  a number  of  aircraft  in 
Table  B.2.  These  values  are  again  based  on  data  from  the  aircrafts' 

SQMDs.  Because  of  the  lack  of  multiple  data  points  for  various  types 
of  aircraft,  composite  figures  were  formed  for  fighter  and  attack  air- 
craft versus  other  types  of  aircraft.  These  composite  values  are 
given  in  the  last  two  columns  of  Table  B.2  and  are  stored  in  NAVMAN 
as  arrays  titled  CM_PRCT_VFA  and  CM_PRCT_OTHER. * 

MINIMUM  MANNING  VALUES  FOR  WORK  CENTER  230 

Personnel  requirements  in  work  center  23C  for  certain  types  of 
aircraft  are  dictated  by  the  need  to  have  an  adequate  number  of  load 
crews  available  for  wartime  missions.  The  number  of  load  crews  re- 
quired is  a function  of  the  anticipated  activity  rate  and  the  number 
of  sorties  in  a launch,  that  is,  the  number  of  aircraft  to  be  loaded 
in  a given  block  of  time.  The  size  of  a load  crew  is  a function  of 
the  configuration  of  the  aircraft  and  the  type  of  munitions.  SQMD 
analysts  have  determined  for  the  appropriate  aircraft  the  minimum  num- 
ber of  personnel  required  per  squadron.  These  values  are  shown  in 
Table  B.3. 

i i 

NAVMAN  estimates  work  center  230  personnel  requirements  based  on 
the  input  workload  and  compares  the  result  with  a minimum  personnel 
figure  to  determine  actual  requirements.  The  minimum  personnel  value 
varies  by  aircraft  type  and  is  based  on  the  values  shown  in  the  last 
column  of  Table  B.3. 

TOTAL  WORKLOAD  TO  PRODUCTION  DIVISIONS:  INTERMEDIATE  LEVEL 

One  set  of  factors  in  the  ACM-02  model  are  Z tables  that  spread 
total  maintenance  workload  to  individual  production  work  centers.  Each 

•k 

NAVMAN  stores  only  the  CM  percentages.  If  the  value  is  nonzero, 
the  PM  percentage  is  one  minus  the  CM  value. 

■f- 

The  minimum  values  for  work  center  230  are  shown  in  Table  D.10 
of  Appendix  D. 
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Table  B.3 

SQMD  WORK  CENTER  230  MINIMUM  PERSONNEL  REQUIREMENTS 


Aircraft 

Squadron  Size 

Minimum  Men 

Men  oer  AC 

F-4J , F-4N 

12 

19 

1.583 

F-14A 

12 

19 

1.583 

A-7 

12 

26 

2.  167 

A -6 

12 

27 

2.250 

A-6 

9 

23 

2.556 

SH-3D 

8 

4 

.500 

SH-3H 

8 

6 

.750 

P-3 

9 

5 

.556 

S-3A 

10 

10 

1.000 

EA-6B 

4 

4 

1.000 

Naval  Air  Station  (NAS)  has  a unique  Z table  that  lists  the  appropriate 
factors  for  each  type  of  aircraft  located  on  the  base.  These  percent- 
age spreads  were  developed  by  analysis  of  3M  maintenance  data.  Since 
NAVMAN  is  designed  for  conceptual  aircraft  and  for  all  NASs,  general 
factors  had  to  be  developed  that  would  allocate  the  total  intermediate 
maintenance  workload  to  the  appropriate  shops. 

Examination  of  ACM-02  Z tables  for  a number  of  different  Aircraft 
Intermediate  Maintenance  Departments  (AIMDs)  suggested  that  although 
the  work-center  percentages  for  a given  type,  model,  and  series  of 
aircraft  varied  from  AIMD  to  AIMD,  the  percentage  at  the  department 
level  was  a constant.  Symbolically,  if  Zij  is  the  percentage  of  the 
total  workload  (for  a given  aircraft  type)  that  is  attributed  to  work 
center  i for  AIMD  j , then 


Zil  ¥ Zi2  4 * ’ ' ¥ Zin 


However, 


L.  Z.  = I.  Z.„  = . . . = l.  Z. 
i tl  v t2  v in 
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where  the  summation  is  over  all  work  centers  in  a given  department. 
Therefore,  if  it  were  appropriate,  general  AIMD  factors  should  be 
developed  at  the  department,  rather  than  the  work-center,  level. 

In  developing  gross  factors,  there  is  the  danger  of  neglecting 
to  account  for  any  specific  skill  (Navy  Enlistment  Classification) 
requirements  of  the  work  centers  within  a division.  For  example,  a 
10  hour  a week  workload  for  a division  would  suggest  one  billet;  how- 
ever, if  that  10  hours  involved  5 hours  apiece  for  two  different 
skills,  the  personnel  requirements  should  be  two.  In  reality,  this 
is  only  a problem  for  the  avionics  division  where  10  or  more  specific 
NECs  may  be  required.  For  that  reason,  for  the  avionics  division 
NAVMAN  uses  a minimum  manning  value  of  the  number  of  specific  skills 
required  (user  input).  Division- level  factors  are  used  to  spread  the 
total  workload  to  divisions,  and  personnel  requirements  are  calculated 
by  dividing  by  the  availability.  In  the  avionics  division,  the  result- 
ing figure  is  compared  to  minimum  skill  requirements,  and  the  greater 
of  the  two  numbers  is  chosen  as  the  NAVMAN  personnel  requirement. 

The  I-level  percentage  spreads  were  developed  for  specific  air- 
craft types  from  the  Z tables  of  ACM-02.  Table  B.4  shows  the  ACM-02 
spreads  for  a number  of  different  aircraft.  Where  factors  were  avail- 
able for  more  than  one  aircraft  of  a given  type,  the  percentages  were 
averaged  and  then  rounded.  The  actual  percentages  used  in  NAVMAN  are 
listed  in  Table  D.ll  of  Appendix  D. 

INTERMEDIATE-LEVEL  SUPPORT  EQUIPMENT  MAINTENANCE  WORKLOAD 

A portion  of  the  total  workload  for  the  intermediate-level  work 
centers  is  due  to  the  preventive  and  corrective  maintenance  of  aviation 
support  equipment.  This  equipment  includes  stands  and  benches,  avion- 
ics test  equipment,  and  all  yellow  flight  deck  equipment  (Ground  Sup- 
port Equipment).  ACM-02  states  that  generally  this  equipment  cannot 
be  directly  associated  with  a specific  type  and  model  of  aircraft  and, 
therefore,  treats  support  equipment  maintenance  as  an  additive  to  each 
work  center.  These  additive  values  vary  from  AIMD  to  AIMD. 

Although  support  equipment  workload  cannot  always  be  associated 
with  a given  aircraft,  it  is  reasonable  to  assume  that  additional  air- 
craft would  require  additional  support  equipment  workload.  Since  the 
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Table  B.4 


SPREAD 

OF  TOTAL 

INTERMEDIATE 

WORKLOAD 

TO  PRODUCTION 

DIVISIONS 

Aircraft 

Power 

Plants 

Airframes 

Avionics 

Armament 

Aviator's  Ea. 

F-4J 

.2436 

. 1596 

.5291 

.0402 

.0275 

F-14A 

. 2781 

. 1307 

.4996 

.0448 

.0468 

A-7E 

.3006 

. 1363 

.5088 

.0418 

.0125 

A-6E 

. 1835 

. 1095 

.6599 

.0186 

.0285 

S-3A 

.2434 

. 1125 

.5749 

.0105 

.0587 

EA-6B 

. 1469 

. 1101 

.6859 

.0046 

.0525 

E-2B 

. 1899 

.0881 

.6567 

0 

.0653 

KA-6D 

.2328 

. 1504 

.5752 

.0200 

.0216 

SH-3H 

.2304 

. 1798 

.5810 

.0026 

.0062 

SH-3D 

. 3448 

. 1401 

.5090 

.0047 

.0014 

SH-3G 

.3301 

. 1552 

.5103 

.0004 

.0040 

RA-5C 

. 1822 

.0861 

. 7240 

0 

.0077 

RF-4B 

. 1196 

.3184 

.5423 

0 

.0183 

P-3C 

.2875 

. 1626 

.5202 

.0128 

.0219 

SOURCE:  Work  Center  Staffing  Standards:  Aircraft  Maintenance — 
Perform  Intermediate  Aircraft  Maintenance — ACM-02,  NAVMMACLANT, 
January  13,  1978. 


intent  of  NAVMAN  is  to  estimate  all  the  maintenance  personnel  require- 
ments due  to  an  aircraft,  an  estimate  of  support  equipment  maintenance 
is  necessary.  To  determine  appropriate  additives,  the  various  support 
equipment  maintenance  workloads  contained  in  ACM-02  were  examined. 
These  values  are  shown  for  a number  of  different  AIMDs  in  Table  B.5. 
Because  NAVMAN  estimates  intermediate  maintenance  requirements  on  a 
division  basis,  the  workloads  are  shown  for  the  production  divisio'  i. 

The  values  in  Table  B.5  were  subjected  to  statistical  regression 
to  determine  if  a relationship  existed  between  maintenance  hours  and 
number  of  aircraft.  Although  a positive  correlation  did  exist,  no 
statistically  significant  relationship  could  be  developed.  As  a rough 
estimate  of  support  equipment  maintenance  workload,  the  weekly  hours 
per  aircraft  were  calculated  for  each  AIMD;  these  values  are  shown  in 
Table  B.6.  Since  the  carrier  values  were  believed  to  be  substantially 

different  from  the  shore  values,  two  sets  of  factors  were  formulated — 

* 

an  average  for  shore  AIMDs  and  a value  for  carrier  AIMDs.  These 
values  are  shown  in  Table  B.6  and  stored  in  NAVMAN.  The  support 


The  higher  carrier  values  reflect  the  higher  aircraft  activity 
rates  while  deployed  at  sea. 


/ 


Table 
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equipment  workload  for  each  I-level  division  is  therefore  calculated 
as  the  product  of  the  number  of  (the  new)  aircraft  and  the  appropriate 
hours  per  aircraft. 

Table  B.6 

INTERMEDIATE-LEVEL  SUPPORT  EQUIPMENT  MAINTENANCE  WORKLOAD 
(Hours  per  Aircraft  per  Week) 


AIMD 

Power 

Plants 

Airframes 

Avionics 

Armament 

Aviators' 

Eauio. 

GSE 

Alemada 

ivni 

.29 

.94 

HRfl 

.49 

1.62 

Cecil  Field 

.10 

.25 

.85 

. 10 

. 19 

1.05 

Jacksonville 

.13 

. 18 

1.07 

. 36 

1.15 

Lemoore 

.15 

.24 

.60 

. 17 

Vr-- w 

.65 

Miramar 

.23 

. 12 

1. 17 

. 13 

. 78 

Norfolk 

.13 

— 

.24 

.67 

North  Island 

. 17 

. 15 

1.43 

urn 

.56 

1.36 

Oceana 

.18 

. 17 

.79 

. 12 

. 16 

.86 

Total 

1. 19 

1.48 

7.65 

.66 

2.33 

8. 14 

28- 


Appendix  C 

MODEL  SUBROUTINES  AND  VARIABLES 


This  appendix  contains  an  alphabetic  listing  of  the  subroutines 
and  variables  used  in  NAVMAN.  Whether  a variable  is  a stored  value 
or  a user  input  is  indicated  in  the  variable  definition. 


**■»*.. 
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I 


SUBROUTINE  NAME 


AD  SPREAD 


AIMD  CALCULATIONS 


AIMD  FIXED 


CWTM  CALC 


INPUT  ERROR  EXIT 


INPUT  ERROR  EXIT 2 


INPUT  ERROR  EXIT 3 


INTEGER 


PAGEONE  REPORT 


PAGETWO  REPORT 


FUNCTION 


Distributes  an  aggregate  workload  to  the 
individual  work  centers. 


Determines  temporary  and  permanent 
Intermediate  maintenance  billets  for 
carriers  and  Naval  Air  Stations. 


Determines  a portion  of  the  permanent 
Intermediate  maintenance  billets  for 
carriers  and  Naval  Air  Stations.  Called 
by  AIMD_CALC  ULAT 10  NS . 


Distributes  a total  maintenance  workload 
to  preventive  and  corrective  maintenance 
for  a given  work  center. 


Indicates  an  illegal  R&M  workload  type 
for  AA  TYPE. 


Indicates  an  illegal  work  center  code  for 
XXX  CODE. 


Indicates  an  illegal  aircraft  code  for 
AIRCRAFT  TYPE. 


Converts  fractional  men  to  integer 
requirements  for  I level  maintenance. 


Prints  page  one  of  output  report. 


Prints  headings  for  page  two  of  output 
report. 
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PAGETWO _DETA IL_REPORT 

PAGETWO_S  PREADJREPORT 

PAGET HREE_REPORT 
PAGEFOUR_REPORT 
PAGEF IVE_REPORT 

RESET 


Prints  input  R&M  data  on  page  two  of 
output  report. 

Prints  values  that  spread  an  aggregate 
workload  to  work  centers  on  page  two  of 
output  report. 

Prints  page  three  of  output  report. 

Prints  page  four  of  output  report. 

Prints  page  five  of  output  report. 

Recalculates  model  values  based  on 
sensitivity  inputs. 


imiu  ii  ' ' "»«« ' ' i"  — — " *',JJ 

VARIABLE  NAME 

AA_TYPE 

ADM IN_SUPPORT_S  PR EADS 
(22,10) 

AFTER_SEA_X 

AFTER_SHORE_X  (5) 

A IMD_C ADR  E_ADDE D_SEA 

AIMD_C  ADR  E_ADDED_S  HORE 

AIMD_FLAG 


i. i.i. mu""—  «>»)  I H ' 
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DEFINITION 


Input  value  that  Identifies  the  type  of 
maintenance  workload:  PM  = Preventive 
Maintenance;  CM  = Corrective  Maintenance; 

TM  - Total  Maintenance. 

Stored  array  that  gives  the  percentage 
of  the  total  administrative  support 
workload  that  goes  to  work  center  I (22) 
for  aircraft  type  J (10);  see  Appendix  D. 

The  total  number  of  aircraft  onboard  an 
aircraft  carrier;  = NUMB ER_AC_0 N_S EA . 

Array  containing  the  total  number  of  all 
types  of  aircraft  based  at  Naval  Air 
Station  IA  (5)  after  the  new  aircraft  is 
added;  - SH0RE_ AC_BEF0RE  + SHORE_SQ_ADDED  * 
AIRCRAFT_PER_S QUADRON . 

The  number  of  permanent  I level  personnel 
required  on  a carrier  because  the  new 
aircraft  is  added;  = SEA_MEN_XA  - SEA_MEN_XB. 

(5)  The  number  of  permanent  I level  personnel 

required  at  Naval  Air  Station  IA  (5)  because 
the  new  aircraft  are  added;  = T0TAL_SH0RE_XA 
T0TAL_SH0RE_XB. 

Counter  set  equal  to  1 when  AIMD_CALCULATIONS 
is  called;  used  as  a print  option  for  AIMD 
data. 
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AIMD_MEN  (7) 


AIMD  TOTAL  CADRE  ADDED 


AIRCRAFT 


AIRCRAFTJCODES  (10,2) 


AIRCRAFT  INDX 


AIRC  RAF  T_PER_S  QUADRON 


I 

AS 2 C0EFF1 


AS2_COEFF2 

: , 

AS 5 COEFF1 


' 


Array  in  Che  AIMD  FIXED  subroutine  that 
holds  billet  requirements  for  the 
permanent  portion  of  the  Intermediate 
maintenance  facility. 

Output  variable  indicating  total  number 
of  permanent  I level  billets  required. 

Variable  in  the  AIMD_FIXED  subroutine 
that  indicates  the  number  of  aircraft 
used  to  calculate  AIMD_MEN. 

Stored  array  containing  the  aircraft 
identifiers  accepted  by  the  model;  see 
Appendix  D for  appropriate  codes. 

Index  based  on  the  TYPE_OF_AIRCRAFT 
input  to  the  model;  relates  to  a 
member  of  AIRCRAFT_CODES. 

Input  value  indicating  the  number  of 
aircraft  in  each  squadron. 

Stored  coefficient  for  the  fixed  portion 
of  the  AS  hour  equation  for  work  center 
020;  declared  in  the  model  as  124.6715. 

Stored  coefficient  for  the  variable 
portion  of  the  AS  hour  equation  for  work 
center  020;  declared  in  the  model  as 
.3652. 


Stored  coefficient  for  the  fixed  portion 
of  the  AS  hour  equation  for  work  center 
050;  declared  in  the  model  as  57.7481. 
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ASS  C0EFF2 


AS  C0EFF1 


AS  COEFF2 


AS_HOURS_SEA  (23) 
AS_HOURS_SHORE  (23) 


AVAIL 


AVAILABILITY  SEA 


AVAILABILITY  SHORE 


Stored  coefficient  for  the  variable 
portion  of  the  AS  hour  equation  for  work 
center  050;  declared  in  the  model  as 
.3625. 


Stored  coefficient  for  the  fixed  portion 
of  the  AS  hour  equation  for  the  production 
work  centers;  declared  in  the  model  as 
306.9048. 

Stored  coefficient  for  the  variable 
portion  of  the  AS  hour  equation  for  the 
production  work  centers;  declared  in  the 
model  as  .38519. 

The  weekly  Administrative  Support  hours 
per  squadron  for  the  individual  work 
centers. 

Value  used  in  AIMD_FIXED  to  indicate 
weekly  personnel  availability. 

Stored  value  indicating  the  Organizational 
personnel  weekly  availability  when  at  sea; 
declared  in  the  model  as  63.0. 

Stored  value  indicating  the  Organizational 
personnel  weekly  availability  when  on 
shore;  declared  in  the  model  as  31.9. 


AVAILABILITY  VP 


Stored  value  indicating  the  Organizational 
personnel  weekly  availability  for  a VP 
squadron;  declared  in  the  model  as  51.0. 


i 
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L 


BEFORE  SEA  X 


B EF ORE_S HOR E_X  (5) 


CM  PERCENT 


CM_PRCT_OTHER  (23) 


CM_PRCT_VFA  (23) 


DEFAULT  CODE 


The  number  of  aircraft  on  a carrier  without 
the  new  aircraft;  * NUMBER_AC_ON_SEA  - 
(NUMBER_SQ_ON_SEA  * AIRCRAFT_PER_SQUADRON ) . 

The  number  of  aircraft  based  at  Naval  Air 
Station  IA  (5)  before  the  new  aircraft  are 
added;  - SHORE_AS_BEFORE (IA ) . 

The  percentage  of  a work  center's  total 
maintenance  workload  that  is  corrective 
maintenance. 

Stored  array  containing  work  center 
CM_PERCENT  for  aircraft  with  codes  other 
than  fighter  or  attack;  see  Appendix  D. 

Stored  array  containing  work  center 
CM_PERCENT  for  fighter  and  attack  aircraft; 
see  Appendix  D. 

Input  code  indicating  the  variable  for 
which  the  user  wishes  to  override  the 
stored  value;  see  Volume  1,  Table  9 for 
appropriate  codes. 


FACILITIES_MAINTENANCE_  Stored  array  used  to  calculate  a work 

FACTORS  (23)  center's  Facility  Maintenance  hours; 

see  Appendix  D. 


FACTOR  1 


FACTOR 2 


FAC  TOR  3 


Value  used  by  RESET  routine  to  set  new  raw 
workloads. 

Value  used  by  RESET  routine  to  set  new 
sorties  per  week. 

Value  used  by  RESET  routine  to  set  new 
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FACTOR_OTHER  (23) 


FACTOR_VFA  (23) 


FLYING_DAYS_WEEK_SEA 

FLYING_DAYS_WEEK_SHORE 

FLYI NG_HOURS_AWEEK_S  EA 
FLYING  HOURS  AWEEK  SHORE 


FLYING_HOURS_WEEK_SEA 
FLYI NG_HOURS_WEEK_SHORE 

GRADE_LEVEL_SEA  (23,10) 
GRADE_LE VE L_S HOR E (23,10) 


GSE  HOURS  PER  AC  SEA 


GSE  HOURS  PER  AC  SHORE 


Array  used  in  AD_SPREAD  routine  that 
spreads  an  aggregate  workload  to  the 
individual  work  centers  for  aircraft  with 
codes  other  than  fighter  or  attack. 

Array  used  in  AD_SPREAD  routine  that 
spreads  an  aggregate  workload  to  the 
individual  work  centers  for  fighter  or 
attack  aircraft. 

Input  values  indicating  the  number  of 
flying  days  per  week. 

The  weekly  flying  hours  per  aircraft; 

= FLYING_HOURS_WEEK  / AIRCRAFT_PER_ 
SQUADRON. 

The  weekly  flying  hours  per  squadron; 

* SORTIES_WEEK  * SORTIE_LENGTH. 

Array  containing  required  billets  for 
work  center  I (23)  and  paygrade  J (10); 
GRADE_LEVEL  (1,1)  is  not  used  and 
GRADEJLEVEL  (1,10)  has  total  billet 
requirements  for  work  center  I. 

Stored  value  indicating  the  weekly  hours 
per  aircraft  required  for  I level 
maintenance  of  ground  support  equipment 
at  sea;  declared  in  the  model  as  1.95. 

Stored  value  indicating  the  weekly  hours 
per  aircraft  required  for  I level 
maintenance  of  ground  support  equipment 
on  shore;  declared  in  the  model  as  1.02. 
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HOURS_SEA 
HOURS  SHORE 


The  weekly  workload  for  work  center  320 
that  is  counted  in  work  centers  110,  120, 
210,  and  220. 


I LEVEL  AS  COEFF  (5) 


Stored  coefficient  used  to  calculate  weekly 
Administrative  Support  hours  for  the  five 
production  divisions  of  an  AIMD;  see  Appendix  D. 


1 LEVEL  AVAILABILITY  SEA 


Stored  value  for  the  weekly  availability 
for  I level  personnel  when  at  sea;  declared 
in  the  model  as  60. 0. 


I LEVEL  AVAILABILITY  SHORE 


Stored  value  for  weekly  availability  for 
I level  personnel  when  on  shore;  declared 
in  the  model  as  31.9. 


I LEVEL  MANHOURS  WEEK 


Input  value  indicating  the  weekly  I level 
maintenance  manhours  per  aircraft. 


I_LEVEL_MANPOWER_SEA  (5) 
I_LEVEL_MANPOWER_SHORE  (5) 


The  temporary  (TAD)  I level  personnel 
requirements  for  AIMD  production  division 
I (5). 


I_LEVEL_ROUNDOFF  (7) 


Stored  array  used  to  convert  fractional 
people  to  integer  requirements  for 
Intermediate  Maintenance;  see  Appendix  D. 


I_LE VEL_S PREAD  (5, 10) 


Stored  array  that  distributes  total  weekly 
I level  maintenance  hours  to  division 
I (5)  for  aircraft  type  J (10);  see 
Appendix  D. 


I TYPE 


Input  value  that  indicates  if  corrective 
maintenance  workload  has  indirect  factors 
included  (-0)  or  not  (*  1). 
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II 


IJ 


INDX 


ISNR_SEA 
ISNR  SHORE 


J TYPE 


K TYPE 


LI  NE  _D  I VIS  ION_MATRI X 
(9,120) 


LOAD  FACTOR  OTHER 


LOAD  FACTOR  VFA 


Pointer  used  in  INTEGERIZE  routine  to 
index  the  roundoff  table. 

Variable  used  in  INTEGERIZE  routine  to 
insure  M_SEA  and  M_SHORE  values  are 
non-zero. 

Pointer  corresponding  to  a particular 
work  center  in  an  array. 

Variable  used  to  determine  paygrade 
requirements  for  personnel  in  work  centers 
100,  200,  and  300. 

Input  value  that  indicates  the  form  of 
the  R&M  CM  and  TM  input  data;  1 - MMH/FH, 

2 - MMH/S,  3 - MTBF/MTTR. 

Input  value  that  indicates  if  R&M  data 
are  by  Work  Unit  Code  (*  1)  or  Work 
Center  (■  0). 

Stored  array  that  indicates  the  paygrade 
breakout  (E-l  through  E-9)  for  J people 
(120)  in  work  center  310;  see  Appendix  E. 

Variable  used  in  AD_SPREAD  routine  to 
distribute  an  aggregate  workload  to 
individual  work  centers  for  aircraft  types 
other  than  fighter  and  attack. 

Variable  used  in  AD_SPk.EAD  routine  to 
distribute  an  aggregate  workload  to 
individual  work  centers  for  fighter  and 
attack  aircraft. 
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M_SEA  (23) 

M SHORE  (23) 


MAINT ENN ACE_TOTA  L_S  EA 
MAINTENANCE  TOTAL  SHORE 


MA I N TE  NANC  E_TOTA L_MS  EA 
MAINTENANCE  TOTAL  MSHORE 


MAKE  READY  PUTAWAY  FACTOR 


MIN IMUM_MEN  (10) 


MINUS_HOURS_SEA  (23) 
MINUS_HOURS_SHORE  (23) 


NUMBER  AC  ON  SEA 


NUMBER  DEFAULT  INPUTS 


Arrays  that  hold  the  maintenance  manpower 
requirements  for  work  center  I (23). 

Variables  used  in  PAGEF0UR_REP0RT  to 
accumulate  total  organizational  maintenance 
manhours. 

Variables  used  in  PAGEF0UR_REF0RT  to 
accumulate  total  organizational  manpower 
requirements. 

Stored  factor  used  to  convert  raw 
maintenance  hours  to  total  maintenance 
hours ; declared  in  the  model  as  . 30. 

Variable  used  in  INTEGER  that  holds 
fractional  manpower  requirements. 

Stored  array  that  indicates  the  minimum 
men  per  aircraft  for  work  center  230  by 
aircraft  type  J (10);  see  Appendix  D. 

Array  that  indicates  for  work  center  I 
(23)  the  number  of  hours  that  could  be 
subtracted  from  the  work  center  workload 
before  the  manpower  requirement  would  be 
reduced. 

Input  value  indicating  the  total  number 
of  aircraft  onboard  a carrier;  used  in 
AIMD__CALCULATIONS  to  determine  changes 
in  permanent  portion  of  the  AIMD. 

Input  value  indicating  the  number  of 
override  cards  that  follow. 


— ■» 
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NUMBER_OF_AVIONICS_SKILLS_  Input  value  indicating  the  number  of 
REQ  different  skills  (NECs)  required  in  the 

Avionics  Division  of  Intermediate  maintenance. 

NUMB ER_OF_NAS_DE PLOYED  Input  value  indicating  the  number  of 

Naval  Air  Stations  the  aircraft  will 
be  assigned  to. 

NUMBER_OF_SHIFTS  Input  value  indicating  the  number  of 

work  shifts  in  organizational  maintenace. 

NUMBER_OF_SQUADRONS  Input  value  for  the  total  number  of 

squadrons  in  the  fleet. 

NUMBER_SQ_ON_SEA  Input  value  for  the  total  number  of 

squadrons  of  the  new  aircraft  that  will 
be  placed  on  a carrier. 

OTHER_HOURS_SEA  (23)  Arrays  that  hold  non-maintenance  and 

OTHER_HOURS_SHORE  (23)  non-AS  hours  for  work  center  I (23). 

PAYGRADE_MATRIX020  (9,20)  Stored  array  that  indicates  the  paygrade 

breakout  for  J people  (20)  in  work  center 
020;  see  Appendix  E. 

PAYGRADE_MATRIX050  (9,20)  Stored  array  that  indicates  the  paygrade 

distribution  fur  J people  (20)  in  work 
center  050;  see  Appendix  E. 

PAYGRADE_MATRIX230  (9,40)  Stored  array  that  indicates  the  paygrade 

distribution  for  J people  (40)  in  work 
center  230;  see  Appendix  E. 
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PLUS_HOURS_SEA  (23) 
PLUS_HOURS_SHORE  (23) 


PM  PERCENT 


Array  that  indicates  for  work  center  I (23) 
the  number  of  hours  that  could  be  added  to 
the  work  center  workload  before  the 
manpower  requirements  would  be  increased. 

Variable  used  in  CWTM_CALC  routine  that 
indicates  the  percent  of  a total 
maintenance  workload  that  is  preventive 
maintenance. 


PROD_DELAY_FACTOR_SEA  (23)  Stored  arrays  indicating  the  indirect 
PROD_DELAY_FACTOR_SHORE  (23)  factor  for  production  delay  for  work 

center  1 (23);  see  Appendix  D. 


PRODUCTION_MATRIX  (9,80) 


PRODUCTI VIT Y_ALL0WANCE_ 
FACTOR 


RAW_CM_WORKLOAD_SEA  (23) 
RAW_CM_W0RKL0AD_SH0RE  (23) 


RAW_PM_WORKLOAD_SEA  (23) 
RAW_PM_W0R KLOA D_S HOR E (23) 


Stored  array  that  indicates  the  paygrade 
distribution  for  J people  (80)  in  the 
production  work  centers;  see  Appendix  E. 

Stored  value  for  the  indirect  hours  due 
to  productive  allowance;  declared  in 
the  model  as  .20. 

Arrays  containing  the  corrective  maintenance 
workloads  for  work  center  I (23)  before 
the  indirect  hours  for  Production  Delay 
are  added. 

Arrays  containing  the  preventive 
maintenance  workloads  for  work  center  1 
(23)  before  the  indirect  hours  for  make 
ready/put  away,  productive  allowance,  and 
production  delay  are  added. 
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RAW_TM_WORKLOAD_SEA  (23)  Arrays  used  for  TM  Inputs  that  contain 

RAW_TM_WORKLOAD_SHORE  (23)  the  maintenance  workloads  for  work  center 

1 (23)  before  any  indirect  factors  are 
added;  theoretically  - RAW_PM_WORKLOAD  + 
RAWER_CM_WORKLOAD. 

RAWER_CM_WORKLOAD_SEA  (23)  Arrays  used  to  store  the  corrective 

RAWER_CM_WORKLOAD_SHORE  (23)  maintenance  workloads  for  work  center 

I (23);  if  I_TYPE  - 0,  then  RAW_CM  - 
RAWERJCM;  if  1_TYPE  - 1,  then  RAW_CM  - 
RAW  ER_CM  * (1  + MAKE_READY_PUTAWAY_ 

FACTOR  + PRODUCTIVE_ALLOWANCE_FACTOR) . 

REQU1S IT I0N_F ACTOR  (10)  Stored  array  containing  the  number  of 

requisitions  per  flying  hour  for  aircraft 
type  I (10);  used  in  work  center  050 
calculations;  see  Appendix  D. 

RMEN  Variable  used  in  INTEGER  routine  to  hold 

integer  number  of  people. 

ROUNDOFF_TABLE_SEA  (10)  Stored  arrays  indicating  the  cutoff  values 

R0UND0FF_TABLE_SH0RE  (0)  when  determining  integer  number  of  people; 

see  Appendix  D. 

S EA_H0UR S_XA  Value  used  in  AIMD_CALCULATIONS  routine 

for  hours  at  sea  for  fixed  portions  of 
Intermediate  Maintenance  after  the  new 
aircraft  are  added  to  the  carrier. 

SEA  HOURS  XB  Value  used  in  AIMD  CALCULATIONS  routine 


for  hours  at  sea  for  fixed  portion  of 
Intermediate  Maintenance  before  the  new 
aircraft  are  added  to  the  carrier. 


” ;~7 -- — > % 


>■ 

? 

r 


S EA_MEN_XA  (7) 


SEA_MEN_XB  (7) 


' 

1 


i 


■ 


! 


SENSITIVITY  CODE 

SENSITIVITY  FLAG 

SENSITIVITY_VALUE 1 
SENSITIVIT  Y_VALUE  2 

S HORE_AC_B EF ORE  (5) 

SHORE_HOURS_XA  (7) 


SHORE_HOURS _XB  (7) 
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Array  used  in  AIMDjCALCULATIONS  for  fixed 
AIMD  integer  personnel  at  sea  after  the 
new  aircraft  are  added  to  the  carrier; 

- SEA_HOURS_XA  / I_LEVEL_AVAILABILITY_ 

SEA  (rounded  off  by  INTEGER  routine). 

Array  used  in  AIMDjCALCULATIONS  for  fixed 
AIMD  integer  personnel  at  sea  before  the 
new  aircraft  are  added  to  the  carrier; 

- SEA_HOURS_XB  / I_LEVEL_AVA1LABILITY_ 

SEA  (rounded  off  by  INTEGER  routine). 

Input  value  indicating  the  sensitivity 
variable. 

Counter  set  when  sensitivity  values  are 
read. 

Input  values  for  the  sensitivity  variable. 

Input  values  for  the  number  of  all  types 
of  aircraft  at  Naval  Air  Station  I (5) 
before  the  new  aircraft  are  added. 

Array  used  in  AIMDJCALCULATIONS  routine 
for  hours  for  fixed  portion  of 
Intermediate  Maintenance  on  shore  after 
the  new  aircraft  are  added  to  a Naval 
Air  Station. 

Array  used  in  AIMDJCALCULATIONS  routine 
for  hours  for  fixed  portion  of  Intermediate 
Maintenance  on  shore  before  the  new  aircraft 
are  added  to  a Naval  Air  Station. 

f. 
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SHORE  MEN  XA  (7) 


SHOR E_MEN_XB  (7) 


SHORE_SQ_ADDED  (5) 


SORT IE_LENGTH_S EA 
SORTIE  LENGTH  SHORE 


Array  used  in  AIMD_CALCULATIONS  routine  for 
fixed  Intermediate  Maintenance  personnel 
on  shore  after  the  new  aircraft  are  added  to 
a Naval  Air  Station;  = SHORE_HOURS  JCA  / 
I_LEVEL_AVAILABILITY_SHORE;  (rounded  off 
by  INTEGER  routine). 

Array  used  in  AIMD_CALC(JLATIONS  routine 
for  fixed  Intermediate  Maintenance 
personnel  on  shore  before  the  new  aircraft 
are  added  to  a Naval  Air  Station;  = SHORE_ 
HOURSJCB  / I_LEVEL_AVAILABILITY_SHORE; 
(rounded  off  by  INTEGER  routine). 

Input  array  indicating  the  number  of 
squadrons  of  the  new  aircraft  added  to 
Naval  Air  Station  I (5). 

Input  values  for  the  average  sortie  length 
in  hours. 


SORT IE_RATE_S  EA 
SORTIE_RATE_SHORE 

I! 

SORT IES_WEEK_SEA 
SORTIES_WEEK_SHORE 

i 


Input  values  for  the  average  number  of 
sorties  per  aircraft  per  flying  day. 

The  number  of  sorties  per  squadron  per 
week.;  - SORT IE_RATE  * FLYING_DAYS  * 
AIRCRAFT_PER_SQUADRON . 


S TOR E_CM_MMH_F H (21) 
STORE_CM_MMH_S  (21) 
STORE_CM_MTB  F (21) 

ST  OR  E_CM_MT  TR  (21) 

STOR E_PM_MMH_D A Y (21) 
STORE_PM_MMH_FH  (21) 

S TO RE_PM_MMH_S  (21) 
STORE  PM_MMH  WEEK  (21) 


Arrays  used  to  store  the  input  data  for 
Preventive  and  Corrective  Maintenance  for 
work  center  I (21);  used  to  print  page 
two  of  the  output  report. 


t 
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STORE  TITLE 


SUBTOTAL_FOUR_HSEA 
SUBTOTAL  FOUR  N SHORE 


SUBTOTAL_FOUR_MS EA 
SUBTOTAL  FOUR  MSHORE 


SUBTOTAL_ONE_HSEA 
SUBTOTAL  ONE  HSHORE 


S UB  TOT  AL_0  NE_MS  EA 
SUBTOTAL  ONE  MSHORE 


SUBTOTAL_THREE_HS EA 
SUBTOTAL  THREE  HSHORE 


SUB  TOTAL_THREE_MS  EA 
SUBTOTAL  THREE  MSHORE 


SUBTOTAL_TWO_HSEA 
SUBTOTAL  TWO  HSHORE 


SUBTOTAL_TWO_MS EA 
SUBTOTAL  TWO  MSHORE 


Input  string  used  as  a title  on  each 
page  of  output  report. 

Used  in  PAGEFOUR_REPORT  routine  to  hold 
the  total  hours  for  work  centers  010,  020, 
030,  040,  050,  and  060. 

Used  in  PAGEFOUR_REP0RT  routine  to  hold 
the  total  manpower  requirement  for  work 
centers  010,  020,  030,  040,  050,  and  060. 

Used  in  PAGEFOUR_REPORT  routine  to  hold 
total  hours  for  work  centers  100,  110, 

120,  121,  130,  131,  and  140. 

Used  in  PAGEF0UR_REP0RT  routine  to  hold 
total  manpower  requirements  for  work 
centers  100,  110,  120,  121,  130,  131,  and 
140. 

Used  in  PAGEF0UR_REF0RT  routine  to  hold 
total  hours  for  work  centers  300,  310, 
and  320. 

Used  in  PAGEF0UR_REP0RT  routine  to  hold 
manpower  requirements  for  work  centers 
300,  310,  and  320. 

Used  in  PAGEFOUR_REPORT  routine  to  hold 
total  hours  for  work  centers  200,  210, 

211,  220,  230,  and  240. 

Used  in  PAGEFOUR_REP0RT  routine  to  hold 
total  manpower  requirements  for  work 
centers  200,  210,  211,  220,  230,  and  240. 


M j 
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SUPPORT_EQUIPMENT_HOURS 
SEA  (5) 

SUPPORT_EQUIPMENT_HOURS 
SHORE  (5) 


Stored  arrays  containing  the  support 
equipment  maintenance  hours  per  aircraft 
per  week  for  Intermediate  Maintenance 
Division  I (5);  see  Appendix  D. 


TEMPMEN  Variable  used  in  AIMDjCALCULATIONS  routine 

to  hold  integer  number  of  personnel 
requirements  for  TAD  portion  of  AIMD. 


TOT_SHORE_XA  (7)  Array  used  in  AIMDjCALCULATIONS  routine 

to  store  the  total  number  of  permanent 
AIMD  personnel  required  at  Naval  Air 
Station  I (7)  after  the  new  aircraft  are 
add&a. 


TOT_SHORE_XB  (7)  Array  used  in  AIMDJCALCULATIONS  routine 

to  store  the  total  number  of  permanent 
AIMD  personnel  required  at  Naval  Air 
Station  I (7)  before  the  new  aircraft  are 
added. 


TOTAL  AIRCRAFT 


TOT AL_AS_HOURS_S  EA 
TOTAL  AS  HOURS  SHORE 


Total  number  of  aircraft  in  the  fleet; 

= AIRCRAFT_PER_SQUADRON  * NUMBF.RJ)F_ 
SQUADRONS . 

The  total  number  of  Administrative  Support 
hours  for  the  production  work  centers. 


T0TALJCM_W0RKL0AD_SEA  (23)  Arrays  containing  the  total  (direct  plus 
TOTAL JCM_W0RKL0AD_SH0RE  (23)  indirect)  Corrective  Maintenance  workloads 

for  work  center  I (23). 

TOTAL_FLEET_I_LEVEL_SEA  (5)  The  total  fleet  TAD  requirements  for  AIMD 
TOTAL_FLEET_I_LEVEL_SHORE  production  division  I (5);  - I_LEVEL_ 

(5)  MANPOWER  (I)  * NUMBER J3F_SQU A DRONS. 
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TOTAL_FLEET_SEA 
TOTAL  FLEET  SHORE 


Variables  used  in  the  PAGETHREE_REFORT 
routine  containing  the  total  number  of 
organizational  and  intermediate  personnel 
required  for  the  entire  fleet. 


TOTAL  1 LEVEL  MANHOURS 


The  total  weekly  Intermediate  Maintenance 
workload  for  a squadron;  = I_LEVEL_MANHOURS 
WEEK  * AIRCRAFT_PER_S QUADRON . 


TOTAL_I_LE  VEL_S  EA 
TOTAL  I LEVEL  SHORE 


Total  TAD  AIMD  requirements  for  a squadron; 
equal  to  the  sum  of  I_LEVEL_MAN POWER  over 
the  5 production  divisions. 


TOTAL_PERSONNEL_S  EA 
TOTAL  PERSONNEL  SHORE 


The  total  organizational  and  intermediate 
maintenance  personnel  for  a squadron. 


TOTAL_PM_WORKLQAD_SEA  (23)  Arrays  containing  the  total  (direct  plus 
TOTAL_PM_WORKLOAD_SHORE  (23)  indirect)  weekly  Preventive  Maintenance 

workload  for  work  center  I (23). 


TOTAL_RAW_PM_PLUS_CM_S  EA 
TOTAL  RAW  PM  PLUS  CM  SHORE 


The  total  weekly  direct  Preventive  and 
Corrective  Maintenance  workload  for  a 
squadron;  used  to  determine  TOTAL  AS  HOURS. 


TOTAL_TM_WORKLOAD_SEA  (23)  The  total  weekly  workload  for  a squadron 
TOT AL_TM_WORKLOAD_S HOR E (23)  in  work  center  I (23).  The  sum  of  CM  + 

PM  + AS  + OTHER  hours. 


TYPE  OF  AIRCRAFT 


Input  string  of  characters  indicating  the 
type  of  aircraft  to  be  considered. 


UTILITY_TASK_HOURS 1 (23) 


Stored  array  containing  Utility  Task  hours 
per  squadron  for  work  center  I (23)  for 
VA,  VF,  and  HS  aircraft;  see  Appendix  D. 


. 
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UT ILI T Y_TAS K_H0URS  2 

(23) 

Stored  array  containing  the  weekly  Utility 

Task  hours  per  squadron  for  work  center  I 

(23)  for  VS,  VAQ,  VAW,  and  RVAH  aircraft; 

see  Appendix  D. 

ITT  IL  IT  Y_TAS  K_H0URS  3 

(23) 

Stored  array  containing  the  weekly  Utility 

Task  hours  per  squadron  for  work  center  I 

(23)  for  VP,  VQ,  and  HM  aircraft;  see 

Appendix  D. 

VI,  V2,  V3,  V4 

Input  values  for  the  Reliability  and 

Maintainability  parameters. 

VAR  L 


VAR  X 


WC  CODE 


WC  OTHER  HOURS 


Variable  used  in  the  calculation  of  work 
center  320  workload  indicating  the 
pre-launch  standby  time  per  launch. 

Variable  used  in  the  calculation  of  work 
center  320  workload  indicating  the  average 
number  of  sorties  per  launch. 

Input  value  indicating  the  work  center  for 
which  WC_0THER_H0URS  apply. 

Input  (optional)  value  indicating 
direct  manning  workload  that  should  be 
added  to  work  center  WC  CODE. 


WORK  CENTER  CODES  (23) 


Stored  array  containing  the  numeric  work 
center  codes. 


WORK  CENTER  NAMES  (23) 


Stored  array  containing  the  alphanumeric 
titles  of  the  work  centers. 


1 


I 

I 
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WORKCENTER_CM_SPREAD 
OTHER  (23) 


WOR  RC  ENTER_CM_S PREAD 
VFA  (23) 


WORKCENTER_PM_S PR  EAD 
OTHER  (23) 


WOR  KCENTE  R_PM_S  PREAD. 
VFA  (23) 


WOR  KC  ENT  ER_TM_S  PREAD 
OTHER  (23) 


WORKCENTER_TM_S PREAD 
VFA  (23) 


Scored  array  indicating  the  percentage  of 
a total  CM  workload  that  is  placed  in  work 
center  I (23)  for  aircraft  types  other  than 
fighter  or  attack;  see  Appendix  D. 

Stored  array  indicating  the  percentage  of 
a total  CM  workload  that  is  placed  in  work 
center  I (23)  for  fighter  and  attack 
aircraft;  see  Appendix  D. 

Stored  array  indicating  the  percentage  of 
a total  PM  workload  that  is  placed  in 
work  center  1 (23)  for  aircraft  types  other 
than  fighter  or  attack;  see  Appendix  D. 

Stored  array  indicating  the  percentage  of 
a total  PM  workload  that  is  placed  in 
work  center  I (23)  for  fighter  or  attack 
aircraft;  see  Appendix  D. 

Stored  array  indicating  the  percentage  of 
a total  1M  (»  PM  + CM)  workload  that  is 
placed  in  work  center  I (23)  for  aircraft 
types  other  than  fighter  or  attack;  see 
Appendix  D. 

Stored  array  indicating  the  percentage  of 
a total  TM  (»  PM  + CM)  workload  that  is 
placed  in  work  center  I (23)  for  fighter 
or  attack  aircraft;  see  Appendix  D. 


WORKLOAD_SEA  (23) 
WORKLOAD  SHORE  (23) 


Arrays  used  in  AD_SPREAD  procedures  to 
hold  the  work  center  workloads  that  result 
from  spreading  a total  workload. 


■ 


t 
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WUC  PTR  Value  that  Indicates  the  number  of  RAM 

input  records  that  contain  work  unit  code 
data. 

WUC  XXX  (25)  Arrays  that  contain  the  RAM  input  data  for 

WUC  J TYPE  (25)  work  unit  code  records.  The  members  of 

WUC  VI  (25)  the  arrays  correspond  to  the  order  of 

WUC_V2  (25)  input. 

XXX  CODE  Input  code  indicating  the  work  center 

(or  if  • 999,  the  total  value)  for  which 
the  RAM  input  values  apply. 
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Appendix  D 
MODEL  FACTORS 


This  appendix  contains  listings  of  all  the  factors  contained  in 
NAVMAN.  The  majority  of  the  factors  (Table  D.l  through  D.9)  were 
developed  by  the  Navy  and  are  contained  in  the  Squadron  Manning  Docu- 
ment (SQMD)  model.  The  remaining  model  factors  (Tables  D.10  through 
D.15)  were  developed  by  analyzing  historic  Navy  aircraft  data  (see 
Appendix  B) . The  various  tables  are: 


Table  Title 


Page 


D.l  Aircraft  Codes 51 

D.2  Requisition  Factors 51 

D.3  Production  Delay  Factors 52 

D.4  Administrative  Support  Spreads 53 

D.5  Facilities  Maintenance  Factors 54 

D.6  Utility  Task.  Hours 55 

D.7  Intermediate  Level  Roundoff  Table 56 

D.8  Organizational  Level  Roundoff  Table:  Shore 56 

D.9  Organizational  Level  Roundoff  Table:  Sea 56 

D.10  Minimum  Value  for  Work  Center  230 57 

D. 11  I Level  Spread  of  Total  Hours  to  Production 

Divisions 57 

D.12  1 Level  Support  Equipment  Hours  per  Aircraft 57 

D.13  I Level  Administrative  Support  Coefficients 58 

D.14  CM  Percent  of  TM  Hours 58 

D.15  Aggregate  Workload  to  Work  Center  Spreads 59 


' 


i 
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Table  D.l 
AIRCRAFT  CODES 


VA,  Attack  (A-6.  A-7) 

VF,  Fighter  (F-14,  F-4) 

VP,  Patrol  (P-3) 

VS,  Anti  Submarine 
VAU,  Early  Warning 
VAQ,  ECM  (EA-6 ) 

VQ,  Intelligence  (EA-3 
RVAH,  Photo  (RF-8,  RA 
HM,  Mine  Sweeping 

HS,  Anti  Sub  Hello  (SH-3) 


(S-3) 

(E-2) 


11 


C) 


NOTE:  The  model  will  ac- 
cept either  the  mnemonic  or 
the  name. 


Table  D.2 

REQUISITION  FACTORS 


Aircraft  Type 

Requisition  Factor 

VA,  Attack 

1.  2723 

VF,  Fighter 

1.9962 

VP,  Patrol 

2.3956 

VS,  Anti  Submarine 

1.5376 

VAW,  Early  Warning 

3.2059 

VAQ,  ECM 

1.9962 

VQ,  Intelligence 

3. 1333 

NM,  Mine  Sweeping 

1. 5376 

NS,  Anti  Submarine 

1. 5376 

NOTE:  The  requisition  factor  is  used 
in  the  standard  equation  for  work  center 
050. 
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Table  D.3 


PRODUCTION  DELAY  FACTORS 


Production  Delay  Factors 


Shore 

Squadrons 


010  Maintenance  Officer 

020  Maintenance/Material  Control 

030  Maintenance  Administration 

040  Quality  Assurance 

050  Material  Control 

060  Data  Analysis 

100  Aircraft  Division 
110  Power  Plants  Branch 

120  Airframes  Branch 

121  Corrosion  Control 

130  Aviator  Equipment 

131  Safety  Equipment 
140  Planned  Maintenance 

200  Avionics/Armament  Division 

210  Electrical  Branch 

211  Electronic  Fire  Control  Branch 
220  Electrical/Instruments  Branch 
230  Weapons  Branch 

240  Photo  Shop 

300  Line  Division 
310  Plane  Captains 
320  Troubleshooters 
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Table  D.7 

INTERMEDIATE  LEVEL  ROUNDOFF  TABLE 


If  Fractional  Men 

Are  Greater  Than 

Integer 

Requirement 

1.076 

2 

2.151 

3 

3.227 

A 

4.302 

5 

5.378 

6 

6.453 

7 

7.5 

8 

X.  5 

X+l 

Table  D.8 


ORGANIZATIONAL  LEVEL 

ROUNDOFF  TABLE:  SHORE 

If  Fractional  Men 

Integer 

Are  Greater  Than 

Requirement 

1.078 

2 

2.156 

3 

3.  234 

4 

4.312 

5 

5.391 

6 

6.469 

7 

7.5 

8 

X.  5 

X+l 

Table 

D.9 

ORGANIZATIONAL 

LEVEL 

ROUNDOFF  TABLE:  SEA 

If  Fractional  Men 

Integer 

Are  Greater  Than 

Requirement 

1.05 

2 

2.  10 

3 

3. 15 

4 

4.20 

5 

5.25 

6 

6.30 

7 

7.35 

8 

8.40 

9 

9.45 

10 

10.5 

11 

X.  5 

X+l 
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Table  D.10 

MINIMUM  VALUE  FOR  WORK 
CENTER  230 


Type  of 
Aircraft 

Minimum  Men 
per  Aircraft 

VA 

2.200 

VF 

1.583 

VP 

.556 

VS 

1.000 

VAW 

0 

VAQ 

1.000 

VQ 

0 

RVAH 

0 

HM 

.500 

HS 

.750 

Table  D.ll 

I LEVEL  SPREAD  OF  TOTAL  HOURS  TO  PRODUCTION  DIVISIONS 


Aircraft 

Type 

Div ision 

VA 

VF 

VP 

VS 

Power  Plants 

KB 

.25 

.28 

.25 

.20 

. 15 

.35 

.20 

.33  .33 

Airframe 

.12 

. 15 

. 16 

. 11 

. 10 

. 11 

. 18 

.23 

.15  .15 

Avionics 

.60 

.52 

.57 

.65 

.69 

.50 

.55 

.50  .50 

Armament 

.01 

.01 

0 

0 

0 

0 

.01  .01 

Aviator's  Eq. 

.03 

.06 

.05 

.05 

.02 

.01  .01 

Table  D.12 

I LEVEL  SUPPORT  EQUIPMENT  HOURS  PER  AIRCRAFT 


1 


Division  Sea  Shore 


Power  Plants  .52  .15 

Airframe  .42  .19 

Avionics  1.93  .95 

Armament  .17  .09 

Aviator's  Eq.  .39  .29 
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Table  D.13 

I LEVEL  ADMINISTRATIVE  SUPPORT 
COEFFICIENTS 


Division 


Coefficients 


Power  Plants 
Airframe 
Avionics 
Armament 
Aviator's  Eq. 


2.3500 
A. 5139 
A. 7271 
5.2731 
6.1751 


Work  TM  CM  PM 

Center  VF,  VA  Other  VF,  VA  Other  VF,  VA  Other 


010 

0 

0 

0 

0 

0 

0 

020 

0 

C 

0 

0 

0 

0 

030 

0 

0 

0 

0 

0 

0 

040 

0 

0 

0 

0 

0 

0 

050 

0 

0 

0 

0 

0 

0 

060 

0 

0 

0 

0 

0 

0 

100 

0 

0 

0 

0 

0 

0 

110 

.096 

. 117 

.095 

. 112 

.096 

. 13' 

120 

. 188 

. 166 

. 173 

. 143 

.235 

.291 

121 

.042 

.069 

.063 

.083 

0 

0 

130 

.009 

.022 

.011 

.025 

.003 

.00! 

131 

.058 

.056 

.053 

.051 

.065 

. 08‘ 

140 

0 

0 

0 

0 

0 

0 

200 

0 

0 

0 

0 

0 

0 

210 

.064 

.241 

.079 

.271 

.034 

. 101 

211 

.068 

0 

.090 

0 

.030 

0 

220 

.099 

. 126 

. 124 

. 137 

.044 

.051 
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Table  D.  15 

AGGREGATE  WORKLOAD  TO  WORK  CENTER  SPREADS 
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Appendix  E 
PAYGRADE  MATRICES 


This  appendix  contains  listings  of  the  paygrade  matrices  used  by 
NAVMAN.  Each  matrix  shows  the  required  number  of  personnel  of  each 
rank  or  skill  level  when  a work  center  is  to  be  manned  with  a given 
number  of  billets.  The  matrices  were  developed  by  the  Navy  and  are 
used  in  the  Squadron  Manning  Document  (SQMD)  model. 


Title  Page 

Paygrade  Matrices  Index 61 

050  Matrix:  Material  Control 62 

020  Matrix:  Material  Control/Maintenance 63 

Production  Matrix 64 

Ordnance:  Work  Center  230 68 

Line  Division........ 70 


.V 
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PAYGRADE  MATRICES  INDEX 


REFERENCE  TABLE 

Work  Center 
Number 

Work  Center 
Description 

Paygrade  or  Reference 

010 

Maintenance  Officer 

Lt.  Cmdr. 

020 

Material  Control /Maint. 

See  020  matrix 

030 

Maintenance  Admin. 

E-5 

040 

Quality  Assurance 

E-8 ( 1 ) , E-4 (1 ) , rest 

are  E-6s 

050 

Material  Control 

See  050  matrix 

060 

Data  Analysis 

E-6 

100 

Aircraft  Division 

Senior  to  supervisor 

in  1XX,  E-8  at  most 

110 

Power  Plant 

See  production  matrix 

120 

Airframes 

See  production  matrix 

121 

Corrosion  Control 

See  production  matrix 

130 

Aviator  Equipment 

See  production  matrix 

131 

Safety  Equipment 

See  production  matrix 

140 

Planned  Maintenance 

E-6 

200 

Avionics/ Armament 

Senior  to  supervisor 

in  2XX,  E-8  at  most 

210 

Electrical 

See  production  matrix 

211 

Electronic  Fire  Control 

See  production  matrix 

220 

Electr ical/ Instrument 

See  production  matrix 

230 

Weapons 

See  230  matrix 

240 

Photo 

See  production  matrix 

300 

Line  Division 

Senior  to  supervisor 

in  3XX,  E-8  at  most 

310 

Plane  Captains 

See  line  div.  matrix 

320 

Troubleshooters 

See  line  div.  matrix 

020  MATRIX:  MATERIAL  CONTROL/MAINTENANCE 


PRODUCTION  MATRIX 


PRODUCTION  MATRIX  (cont.) 


2 I 3 
« | 

3 i s 


n 

CM 

w 

w 

1 

PRODUCTION  MATRIX  (cont 


PRODUCTION  MATRIX  (cont 


ORDNANCE 


LINE  DIVISION  (cont. 


a) 

U CM 
•H 
d 
cr 

Q) 

Pd  r4 

co 

•u 

a) 

H O 

N 


»H  ON 
Cd  vo 
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m 

CM 

CM 

CM 

ON 

m 

m 

CM 

CM 

CM 

ON 

m 

CM 

CM 

CM 

ON 

CO 

m 

CM 

CM 

CM 
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co 

m 

CM 

CM 

CM 

00 

CM 

m 

CM 

CM 

CM 

00 

rH 

m 

CM 

<M 

CM 

00 

o 

m 

CM 

CM 

CM 

00 

ON 

CM 

CM 

CM 

00 

oo 

<** 

CM 

CM 

CM 

oo 

Total  Billets  Required 


-76- 


Appendix  F 

RELIABILITY  AND  MAINTAINABILITY  DATA  BANK 


This  appendix  contains  historical  data  on  the  reliability  and 
maintainability  of  Navy  aircraft.  During  the  early  stages  of  an 
aircraft's  development  process,  data  for  analogous  aircraft  subsystems 
are  often  used  as  benchmarks  for  a new  aircraft's  reliability;  in  this 
regard,  the  data  in  this  appendix  may  prove  useful  to  a user  of  the 
NAVMAN  model.  The  tables  and  data  are  described  below. 

Table  F.l:  Readiness/Utilization  History 

This  table  contains  organizational  and  intermediate  level 
maintenance  data  for  various  Navy  aircraft.  Included  are: 

o Total  Direct  (Organizational  plus  Intermediate)  Maintenance 
Manhours  per  Flying  Hour  (DMMH/FH) 
o Organizational  Level  Unscheduled  (Maintenance  Action  Forms 
and  Support  Action  Forms)  Maintenance  Manhours  per  Flying 
Hour 

o Total  monthly  flying  hours  for  the  aircraft  fleet 
o Total  monthly  flying  hours  per  aircraft 

Table  F.2:  PM/CM  Data  Bank  (October  1976) 

This  table  presents  organizational  level  preventive  maintenance 
manhours  and  corrective  maintenance  percentages  for  the  various  work 
centers  for  a number  of  Navy  aircraft.  Included  are: 
o Work  Center  (W/C)  and  Rating  (RTG) 
o Preventive  Maintenance  Manhours  (PMMH)  per 
Sortie 

Week  per  aircraft  (WK/AC) 

Flying  hour  (FH) 

Daily  inspection  (DLY  IN) 

o The  percentage  of  the  total  corrective  maintenance  (CM)  MAF 
and  SAF  workloads  attributable  to  each  organizational  level 
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Table  F.3;  PM/CM  Data  Bank  (July  1977) 

See  previous  discussion. 

Table  F.4:  Intermediate  Level  Maintenance  Manhours  per  Aircraft 
per  Month  (b  value) 

This  table  contains  the  values  used  in  the  ACM-02  model  to  generate 
intermediate  level  monthly  workloads. 

For  organizational  level  maintenance,  the  preventive  maintenance 
workloads  by  work  center  can  be  found  in  Tables  F.2  and  F.3.  The 
corrective  maintenance  workloads  can  be  calculated  by  using  the  values 
in  Table  F.l  and  the  percentage  spreads  in  Tables  F.2  or  F.3.  MAF  and 
SAF  workloads  are  calculated  separately  and  then  summed  to  determine 
the  total  CM  workload  per  work  center. 

The  data  in  Tables  F.l  through  F.3  were  received  from  the  Navy 
Manpower  and  Material  Analysis  Center,  Atlantic  (NAVMMACLANT) . They 
were  extracted  by  NAVMMACLANT  analysts  from  the  3M  maintenance  data 
collection  system  and  summarized  in  the  format  shown.  The  intermediate 
maintenance  values  in  Table  F.4  were  extracted  from  ACM-02. 
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Table  F.  1 

READINESS/UTILIZATION  HISTORY 


A-4C 

Total  DMMH/FH 
Org  unsch-MAF 
Org  unsch-SAF 
Flight  hrs 
Flight  hrs/ac 

A-4E 

Total  DMNH/PH 
Org  unsch-MAF 
Org  unsch-SAF 
Flight  hrs 
Flight  hrs/ac 

A-6A 

Total  DMMH/FH 
Org  unsch-MAP 
Org  unsch-SAF 
Flight  hrs 
Flight  hrs/ac 

A-6E 

Total  DMMH/FH 
Org  unsch-MAF 
Org  unsch-SAF 
Flight  hrs 
Flight  hrs/ac 

A-7A 

Total  DMMH/FH 
Org  unsch-MAP 
Org  unsch-SAF 
Flight  hrs 
Flight  hrs/ac 

A-7E 

Total  DMMH/FH 
Org  unsch-MAF 
Org  unsch-SAF 
Flight  hrs 


1976 

1977 

1978 

22.6 

75.6 

73.7 

7.2 

17.5 

7.  1 

7.3 

32.4 

43.  1 

4, 422. 0 

149.  0 

(DA) 

18.4 

7.9 

(NA) 

17.2 

21.2 

22.9 

5.6 

6.0 

6.3 

5.7 

6.8 

8.1 

17,075.0 

14,762. 0 

14,291. 0 

24.  1 

20.8 

21.9 

58.8 

54.4 

46.0 

18.8 

16.7 

14.5 

14.5 

13.5 

9.5 

14,379.0 

7, 191.0 

2,164.0 

19.9 

20.7 

15.7 

33.7 

41.3 

41.8 

9.4 

11.7 

12.  1 

10.3 

12.2 

11.3 

57,826.0 

65,214.0 

74,824. 0 

30.7 

27.3 

28.6 

24.3 

21.1 

20.5 

7.8 

5.9 

5.5 

8.  1 

6.7 

6.  7 

29,136.0 

27,844.0 

13,666.0 

30.2 

31.  5 

29.0 

23.8 

28.0 

28.2 

10.2 

7.3 

7.4 

3.7 

11.1 

11.4 

80.0 

122,558.0 

143,305.0 

6.7 

33.6 

38.4 
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Table  F.l  (cont.) 


1976 

1977 

1978 

— • • — 

— 

— 

:a-6b 

Total  DMMH/FH 

48.9 

51.6 

60.5 

Org  unsch-M A F 

15.2 

16.6 

19.3 

Org  unsch-SAF 

13.5 

12.5 

15.5 

Flight  hrs 

15,348.0 

17,134.0 

19,003.0 

Flight  hrs/ac 

32.4 

33.2 

36.7 

I-2C 

Total  DMMH/FH 

27.2 

29.8 

28.0 

Org  unsch-MAF 

8.4 

7.9 

8.0 

Org  unsch-SAF 

7.5 

8.4 

8.2 

Flight  hrs 

11,653.0 

12,943.0 

15,246.0 

Flight  hrs/ac 

44.7 

41.1 

45.1 

’-14A 

Total  DMMH/FH 

56.2 

52.4 

56.9 

Org  unsch-SAF 

18.4 

16.9 

18.6 

Org  unsch-SAF 

16.0 

16.1 

17.  1 

Flight  hrs 

32,100.0 

45,538.0 

49,297.0 

Flight  hrs/ac 

19.7 

24.7 

24.8 

-4J 

Total  DMMH/FH 

43.3 

47.9 

46.2 

Org  unsch-MAF 

15.2 

16.7 

15.4 

Org  unsch-SAF 

12.2 

13.3 

12.9 

Flight  hrs 

80,311.0 

79,482. 0 

82,245.0 

Flight  hrs/ac 

25.4 

23.7 

25.8 

-3C 

Total  DMMH/FH 

17.0 

19.7 

19.2 

Org  unsch-MAF 

5.9 

6.4 

6.2 

Org  unsch-SAF 

3.6 

4.2 

3.9 

Flight  hrs 

84,221.0 

93,315.0 

102,814. 0 

Flight  hrs/ac 

57.4 

58.  1 

62.7 

-3A 

Total  DMMH/FH 

30.1 

28.  0 

29.6 

Org  unsch-SAF 

9.3 

8.7 

9.2 

Org  unsch-SAF 

9.6 

8.7 

9.7 

Flight  hrs 

35,550.0 

54, C97 . 0 

62,555.0 

Flight  hrs/ac 

36.7 

35.5 

34.5 

-4J 

Total  DMMH/FH 

43.3 

47.9 

46.2 

Org  unsch-MAF 

15.2 

16.7 

15.4 

Org  unsch-SAF 

12.2 

13.3 

12.9 

Flight  hrs 

80,311.0 

79,482.0 

82,245.0 

Flight  hrs/ac 

25.4 

23.7 

25.8 
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Table  F.l  (cont.) 


1976 

1977 

1978 

4H 

Total  DHHH/PH 

NA 

29.4 

NA 

Org  unsch-NAP 

HA 

10.7 

NA 

Org  unsch-SAF 

NA 

6.6 

NA 

Flight  hrs 

NA 

16,361.0 

NA 

Flight  hcs/ac 

NA 

26.9 

NA 

•5E 

Total  DMMH/FH 

9.4 

10.9 

13.6 

Org  unsch-SAF 

1.6 

1.6 

2.2 

Org  unsch-SAF 

4.4 

4.4 

5.  1 

Flight  hrs 

2,051.0 

2,776.  0 

2,496.0 

Flight  hrs/ac 

34.9 

32.3 

25.3 
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Table  F.  2 

PM/CM  DATA  BANK 
(October  1976) 


PMMH 

FMMfi 

PMMH 

PMMH 

CM 

CM 

A/C 

W/C 

RTS 

Sortie 

iK/AC 

EH 

DLX  IN 

MAP 

SAF 

A-4C 

110 

AD 

.000 

.ooc 

.256 

.000 

20.28 

10.71 

120 

AMU 

.000 

.ooc 

.044 

.033 

10.96 

3.26 

120 

AMS 

.000 

1.342 

.123 

.050 

13.00 

3.87 

121 

AMS 

. 000 

.OOC 

.000 

.000 

6.96 

7.39 

130 

PR 

.000 

. 167 

.000 

.0  00 

.33 

.50 

131 

AHZ 

.000 

.319 

.006 

.020 

3.17 

5.84 

210 

AT 

.000 

.688 

. 009 

.000 

18.88 

1.46 

220 

AE 

.000 

.097 

. 054 

.167 

24.77 

3.53 

230 

AO 

.000 

.314 

.041 

.000 

1.65 

17.88 

310 

PC 

1.000 

1.50C 

.001 

1.100 

.00 

45.56 

A- 4 3 

110 

AD 

.000 

.000 

. 098 

.000 

19.  17 

5.44 

120 

Ann 

.000 

.OOC 

.046 

.000 

11.44 

2.50 

120 

AMS 

.000 

3.292 

.095 

.050 

15.92 

3.47 

121 

AMS 

. 000 

.OOC 

.000 

.000 

11.92 

4.61 

130 

PR 

.000 

. 15C 

.000 

.000 

.38 

.59 

131 

AMS 

.000 

.369 

.001 

.000 

5.37 

5.33 

210 

AT 

.000 

1.110 

. 008 

.000 

10.43 

3.23 

220 

AE 

.08  3 

.025 

. 044 

.167 

22.86 

3.92 

230 

AO 

1.817 

.025 

.049 

.000 

2.  50 

14.77 

310 

PC 

.350 

.OCC 

.000 

.917 

.00 

56.  12 

A -6  A 

110 

AD 

.050 

.500 

. 138 

.000 

9.97 

6.37 

120 

AMU 

.000 

.875 

.154 

.000 

10.11 

5.15 

120 

AMS 

. 000 

6.  129 

.327 

.000 

10.22 

5.21 

121 

AMS 

.000 

.000 

.000 

.000 

11.57 

3.22 

130 

PR 

.000 

. 167 

. 000 

.000 

.13 

. 18 

131 

AMS 

.000 

2.  135 

. 052 

.667 

3.08 

1.53 

210 

AI 

.000 

3.104 

.011 

.000 

10.  14 

4.22 

211 

AO 

.000 

. 50C 

.012 

.000 

28.94 

3.22 

220 

AE 

.000 

.615 

.018 

.000 

14.50 

9.93 

230 

AC 

.000 

1.375 

.008 

.000 

1.34 

12.  15 

310 

PC 

.430 

1.000 

. 004 

3.567 

.00 

48.82 

A-63 

110 

AD 

.05  0 

1.000 

.138 

.000 

16.28 

9.65 

120 

AMU 

.000 

.875 

.154 

.000 

8.  13 

2.99 

120 

AMS 

.000 

6.129 

.319 

.000 

7.38 

2.72 

121 

AMS 

.000 

.000 

.000 

.000 

13.47 

5.68 

130 

PR 

.000 

. 167 

. 000 

.000 

.27 

.24 

131 

AME 

.300 

2.  135 

.052 

.667 

3.37 

2.64 

210 

AT 

.000 

3.104 

.010 

.000 

11.41 

6.70 

211 

AO 

.000 

.500 

.004 

.000 

18.54 

4.76 

220 

AE 

.000 

.615 

.018 

.000 

18.25 

6.84 

230 

AO 

.000 

1.375 

.008 

.000 

2.91 

15.  18 

310 

PR 

.433 

1.000 

.004 

3.567 

.00 

42.60 
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Table  F.2  (cont.) 


PMMH 

PMMH 

PM.IH 

P.1MH 

CM 

CM 

A/C 

M/C 

RT  3 

Sortie 

WK/AC 

FU 

DL  Y IN 

MAF 

SAF 

A-  7 Z 

11C 

AO 

.000 

.233 

.011 

.333 

16.99 

4.29 

120 

Md 

. 000 

.03b 

. 053 

.000 

13.02 

6.70 

120 

AMS 

.000 

2.  59 C 

. 106 

.000 

7.  72 

3.97 

121 

A Mo 

. 30 0 

.ooc 

.000 

.000 

13.60 

5.99 

130 

PR 

.00  0 

. 163 

. 00 J 

.000 

.16 

. 1 1 

131 

A MS 

.000 

1.247 

. 006 

.000 

4.56 

2.21 

210 

AT 

.0  00 

.044 

. 004 

.000 

13.  14 

6.67 

211 

AO 

.000 

. 27  4 

. 032 

.000 

3.24 

1.62 

220 

A i 

.000 

.389 

.017 

.000 

17.39 

5.C7 

230 

AC 

.000 

2.275 

.016 

.000 

10.16 

23.50 

310 

PR 

1.000 

1.G5C 

. 000 

1.167 

. 00 

39.87 

£ A-  (>  3 

110 

AC 

.000 

.996 

.2  75 

.000 

10.  04 

10.46 

120 

AMU 

.00  0 

. 30  C 

. 0 35 

. 000 

9.58 

7.44 

120 

AMS 

. 000 

4.447 

. 194 

.000 

6.21 

4.82 

121 

A Mo 

.000 

.OOC 

.0  00 

.000 

9.90 

5.  14 

130 

PK 

.00  0 

. 50C 

.000 

.000 

.43 

.54 

131 

AM  £ 

. JOG 

2.  123 

.024 

. 750 

4.67 

5.67 

210 

AT 

.000 

1. 083 

.032 

.920 

31.83 

1.65 

211 

AC 

. 000 

.ooc 

. COO 

.000 

9.85 

.22 

220 

A E 

.00  0 

.478 

. 029 

.000 

16.83 

9.51 

2J0 

AO 

.000 

.724 

. COO 

. 500 

• 66 

2.80 

310 

PC 

.500 

. 50  C 

. 005 

2.917 

.00 

51.75 

£-2C 

110 

AC 

. 000 

.ooc 

.004 

. OOO 

19.74 

5.21 

120 

A M3 

.000 

.ooc 

. C37 

.000 

8.64 

4.41 

120 

AMS 

. 000 

6.  o75 

.122 

.000 

9.42 

4.81 

121 

AMS 

.00  0 

.ooc 

. 000 

.000 

8.92 

19.  36 

130 

PR 

.000 

. 25  C 

. 0 00 

.000 

.19 

.74 

131 

AMS 

.000 

. 136 

.019 

.250 

2.95 

1 1.98 

210 

AT 

.000 

.0CC 

. 009 

.000 

34.01 

5.81 

220 

AE 

. 00  0 

.656 

.014 

.000 

16.  14 

7.C7 

230 

AO 

.000 

. OCC 

.000 

.000 

.00 

. 13 

310 

PC 

.87  0 

1.0GC 

.000 

2.370 

. 00 

40.46 

F-14A 

110 

AO 

.000 

.OOC 

. 397 

.500 

19.98 

2.  17 

120 

AMI 

. 000 

. 33S 

. 142 

. 500 

7.49 

2.90 

120 

A Mo 

.000 

6 .585 

. 564 

.500 

10.45 

4.05 

121 

A M3 

.000 

.OCC 

. 000 

.000 

3.62 

12.85 

130 

PR 

.000 

. 167 

.000 

.000 

. 1b 

. 17 

131 

AME 

.000 

1.166 

.110 

.417 

5.69 

5.28 

210 

AT 

.00  0 

. 25  C 

.020 

.000 

8.70 

2.66 

211 

AQ 

.000 

1.063 

. 130 

. 000 

2.  19 

.70 

220 

AE 

.000 

1.00C 

.109 

.000 

23.40 

7.39 

230 

AC 

.000 

1.573 

. 091 

.000 

18.31 

18.95 

310 

PC 

.500 

1.0CC 

.008 

1.700 

.00 

42.87 

I 
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Table  F.2  (cont.) 


PNHH  FMMH  PMMH  PMMH  CM 

*/C  RT j Sortie  WK/AC  FH  ULY  IN  MAF 


000 

23.53 

4.27 

000 

12.60 

2.47 

000 

19.06 

5.46 

000 

1.11 

17.19 

000 

.09 

.40 

000 

.00 

26.18 

000 

. 00 

.00 

000 

12.82 

5.24 

167 

• 

029 

.008 

• 

OCC 

.001 

• 

35C 

.000 

• 

220 

A £ 

AO 

240 

310 

PH 

PC 

350 

FC 
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Table  F. 


PM/CM  DATA  BANK 
(July  1977) 


PNMH 

EM  Nil 

PMMH 

PMMH 

CM 

CM 

A/C 

■4/C 

R 13 

Sortie 

WK/AC 

FH 

DLK  IN 

MAF 

SAF 

A-4C 

110 

AD 

.000 

.000 

.256 

.000 

20.28 

10.70 

120 

A MH 

.000 

. OOC 

. 044 

.033 

10.96 

3.26 

120 

AMS 

.000 

1.  342 

. 123 

.050 

13.00 

3.87 

121 

AMS 

.000 

.OOC 

.000 

.000 

6.96 

7.39 

130 

PR 

.000 

. 1b  7 

. 000 

.000 

.33 

.50 

131 

AME 

.000 

. 33b 

.006 

.200 

3.  17 

5.84 

210 

AT 

.000 

.686 

. C09 

.000 

18.88 

1.46 

220 

AE 

.000 

.097 

. 054 

. 167 

24.77 

3.53 

230 

AD 

.000 

.314 

.041 

.000 

1.65 

17.88 

310 

PC 

1.000 

1.5CC 

.001 

1.100 

.00 

45.56 

A-4E 

110 

AD 

.000 

.OOC 

.099 

.000 

19.17 

5.  44 

120 

AMH 

.000 

. OOC 

. 046 

.000 

1 1.44 

2.50 

120 

AMS 

.000 

3.292 

.095 

.050 

15.92 

3.47 

121 

A M.S 

.00  0 

.OOC 

. OCO 

.000 

11.92 

4.61 

130 

PR 

.000 

. 150 

.000 

.000 

.38 

.59 

13  1 

AME 

.000 

.369 

.001 

.000 

5.37 

5.  33 

210 

AT 

.000 

1.077 

.008 

. 000 

10.43 

3.23 

220 

AE 

.083 

.025 

. 044 

. 167 

22.8  6 

3.92 

230 

AD 

1.817 

.025 

. 049 

.000 

2.50 

14.77 

310 

PC 

.850 

. OOC 

.000 

.917 

. 00 

56.  12 

A-6  A 

110 

AD 

.000 

1.583 

. 349 

.083 

9.97 

6.37 

120 

AMH 

.000 

1.250 

. 150 

.000 

10.  11 

5.15 

120 

AMS 

.000 

8.012 

.499 

.000 

10.22 

5.21 

121 

AMS 

.000 

.OOC 

. 000 

.000 

11.57 

3.22 

130 

PR 

.000 

.000 

.000 

.000 

. 13 

. 18 

131 

AME 

.000 

1.641 

.067 

.333 

3.08 

1.53 

210 

AT 

.000 

5.336 

.012 

.000 

10.14 

4.22 

211 

AQ 

.000 

.687 

.011 

.000 

28.94 

3.22 

220 

AE 

.000 

2.167 

. 025 

.000 

14.50 

9.93 

230 

AO 

.000 

1.625 

.020 

.000 

1.34 

12.  15 

310 

PC 

.500 

1.0CC 

. 004 

4.517 

.00 

48.82 

A - 6 E 

110 

AD 

.000 

1.583 

. 352 

.083 

16.28 

9.65 

120 

AMH 

.000 

1.250 

.156 

.000 

8.  13 

2.99 

120 

AMS 

.000 

6.012 

.524 

.000 

7.38 

2.72 

121 

AMS 

.000 

.000 

.000 

.000 

13.47 

5.68 

130 

PR 

. 000 

.OOC 

.000 

.000 

.27 

.24 

131 

AME 

.000 

1.557 

.077 

.333 

3.37 

2.64 

210 

AT 

.000 

5.336 

.013 

.000 

11.41 

6.7.0 

211 

AQ 

.000 

.687 

. Oil 

.000 

18.54 

4.76 

220 

AE 

.000 

2.  167 

.025 

.000 

18.25 

6.84 

230 

AO 

.000 

1.625 

.020 

.000 

2.91 

15.  18 

310 

PC 

.500 

1.00C 

. 004 

4.350 

. 00 

42.60 

-85- 

Table  F.3  (cont.) 


PMMH 


A/C 

*/C 

RTS 

Sortie 

A-7  2 

110 

AC 

.000 

120 

AMH 

.000 

120 

AMS 

.000 

121 

AMS 

.000 

130 

PR 

.000 

131 

A ME 

.000 

210 

AT 

.000 

21  1 

AO 

.000 

220 

AZ 

.000 

230 

AC 

.000 

310 

PC 

1.000 

EA-6B 

110 

AC 

.000 

120 

AMH 

.000 

120 

AMS 

.000 

121 

AMS 

.000 

130 

PR 

.000 

131 

AMS 

.000 

210 

AT 

.000 

211 

AQ 

.000 

220 

At 

.000 

230 

AO 

.000 

310 

PC 

.500 

E-2C 

110 

AD 

.000 

120 

A Mil 

.000 

120 

AMS 

.000 

121 

AMS 

.000 

130 

PR 

.000 

131 

AMS 

.000 

210 

AT 

.000 

220 

A E 

.000 

230 

AO 

.000 

310 

PC 

.500 

F-14A 

110 

AC 

.000 

120 

AMH 

.000 

120 

AMS 

.000 

121 

AMS 

.000 

130 

PR 

.000 

131 

A M3 

.000 

210 

AT 

.000 

211 

AQ 

. 000 

220 

AE 

.000 

230 

AO 

.000 

310 

PC 

.500 

PMMH 

PM  Nil 

PMMH 

CM 

HK/AC 

FH 

DL Y IN 

MAP 

.259 

.011 

.333 

16.99 

.036 

.053 

.000 

13.02 

2.590 

. 107 

.000 

7.72 

.OCC 

. 000 

.000 

13.60 

. 163 

. 000 

.000 

.16 

1.247 

.006 

.583 

4.56 

.044 

. 004 

.000 

13.14 

.272 

.032 

.000 

3.24 

.395 

.017 

.000 

17.39 

2.275 

.016 

.000 

10.  18 

1.05C 

.000 

1.167 

.00 

1.521 

. 309 

.000 

10.04 

.750 

.061 

.000 

9.58 

6.222 

.339 

.000 

6.21 

.OOC 

. 000 

.000 

9.90 

. 50C 

.000 

.000 

.43 

4.051 

. 031 

.750 

4.67 

1.908 

.041 

.917 

31.83 

.000 

. 000 

.000 

9.85 

2.428 

.036 

.000 

16.83 

.724 

. 005 

.500 

.66 

.500 

.003 

2.917 

.00 

.813 

. 041 

.000 

19.74 

.000 

. 030 

.000 

8.64 

8.057 

.187 

.000 

9.42 

.000 

. 000 

.000 

8.92 

.250 

.000 

.000 

.19 

. 139 

.023 

.00  0 

2.95 

.000 

. 023 

.000 

34.01 

1.172 

.005 

.000 

16.  14 

.000 

. 000 

.000 

.00 

2. 250 

.000 

1.917 

.00 

.077 

.533 

.500 

19.98 

.339 

. 100 

.833 

7.49 

6.585 

.392 

.500 

10.45 

.000 

.000 

.000 

3.62 

. 167 

. 000 

.000 

. 16 

1.438 

.072 

.417 

5.69 

.250 

. 014 

.000 

8.70 

1.455 

.086 

.000 

13.43 

1.000 

.111 

.000 

23.40 

1.073 

.061 

.000 

7.08 

1.00C 

.006 

2.167 

.00 

CM 

SAF 


4.29 
6. 7C 
3.97 
5.99 
.11 
2.21 

6.67 
1.62 
5.C7 

23.50 

39.87 

10.46 
7.44 
4.82 
5.  14 

.54 

5.67 

1.65 

.22 

9.51 

2.80 

51.75 

5.21 

4.41 

4.81 
19.36 

.74 
1 1.98 

5.81 
7.07 

. 13 

40.46 

2.  17 
2.90 
4.05 
12.85 
. 17 
5.28 

2.66 

.70 

7.39 

18.95 

42.87 
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Table  F.3  (cont.) 


PMMH 

FMMH 

PMMH 

PMMH 

CM 

CM 

A/C 

W/C 

Rta 

Sort ie 

■ K/AC 

F >1 

uL  Y IN 

MAF 

SAF 

F-4  J 

110 

AD 

.000 

1.733 

.313 

.233 

14.  48 

2.55 

120 

A fit! 

.000 

1.250 

. 143 

.000 

10.14 

4.59 

120 

AM. 5 

.000 

1.534 

.293 

.000 

12.83 

5.8C 

121 

A M3 

.000 

.ooc 

. 000 

.030 

11.35 

15.79 

1 30 

PR 

.000 

.272 

.000 

.000 

.21 

.53 

131 

A ME 

.000 

1.408 

. 031 

.200 

6.08 

2.26 

210 

AT 

.000 

4.001 

.008 

.000 

7.63 

1.01 

211 

AO 

.000 

1.617 

. C23 

.000 

17.28 

1.62 

220 

At 

.000 

1.244 

.051 

. .000 

2.  12 

2.11 

230 

AO 

.000 

4.783 

. 112 

• o J 0 

.00 

17.29 

310 

PC 

.500 

2.  583 

. 062 

1.433 

11.76 

45.83 

P-3C 

110 

AC 

.000 

. 542 

. Cd3 

.4  17 

18.93 

3.06 

120 

A M3 

. 000 

. 042 

.007 

.033 

4.12 

3.10 

12  0 

AMS 

.000 

z.352 

.0  34 

.667 

13.  15 

9.91 

121 

AMS 

.000 

.OOC 

.000 

.000 

4.  06 

1 7.10 

130 

PS 

.000 

.250 

. 000 

.000 

.48 

.85 

131 

AME 

.000 

. iyi 

.CIO 

.000 

2.87 

5.C3 

210 

AT 

. 000 

2.  127 

.008 

.000 

23.53 

4.27 

210 

AX 

.000 

.OOC 

.000 

.000 

12. bO 

2.47 

220 

At 

. 000 

. 50  C 

. 020 

.300 

19.  06 

5.46 

230 

AO 

.000 

.104 

. 004 

.000 

1.11 

17.  19 

240 

PH 

.000 

.000 

. 0 00 

.000 

.09 

.40 

310 

PC 

.000 

. ooc 

. 0 00 

.000 

.00 

26.  18 

350 

PC 

3.000 

. ooc 

.0  33 

.000 

.00 

. OC 

S-J  A 

110 

AD 

.000 

3.033 

. 093 

.000 

12.82 

5.24 

1 2 C 

A M3 

.000 

. 04  6 

. C 04 

.000 

b . 6 7 

5.32 

120 

AMS 

. 00  0 

3.  5b  8 

. 124 

. ooo 

13.  17 

10.51 

121 

AMS 

.000 

.OOC 

.000 

.000 

3.30 

6.  73 

130 

PR 

.000 

. 167 

.COO 

.000 

.55 

.31 

131 

AMS 

.000 

.029 

. 008 

. 167 

5.63 

3.21 

120 

AT 

.000 

.031 

. 001 

.217 

14.27. 

1.34 

210 

AX 

. 000 

. 350 

.000 

.000 

12.48 

.84 

220 

AE 

.000 

.031 

. 004 

.000 

30.77 

3.79 

230 

AC 

.000 

.61  C 

.002 

.000 

.34 

1 1.32 

310 

PC 

.500 

2.417 

. 000 

.567 

.00 

51. 39 

I 
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Table  F.4 

INTERMEDIATE  LEVEL  MAINTENANCE  MANHOURS 
PER  AIRCRAFT  PER  MONTH 
(b  value) 


Type 


Aircraft 

b value 

A-3B 

37.3846 

EA-3E 

312,5494 

KA-3B 

125. 1246 

RA-3B 

28. 4396 

ERA-3B 

330.2738 

TA-3B 

131. 7015 

NA-3B 

27. 4833 

NRA-3B 

31.4797 

A-4C 

105. 3328 

A-4E 

75.5632 

A-4F 

54. 7682 

LA-4  F 

dt> . 0743 

TA-4F 

79.4524 

TA-4J 

79. 8912 

A-4L 

45.4140 

A-4H 

69. 1994 

NA-4E 

14.8308 

NA-4F 

32.599  0 

NTA-4F 

36. 5508 

NA-4B 

58.5542 

RA-5C 

578. C963 

A-6  A 

316. 5105 

LA  -6  A 

331. 5851 

A-6B 

422. 3289 

EA-6B 

414. 3336 

A-6C 

263. 0222 

KA-6D 

156. 0498 

A-6I 

202.2598 

NA-6A 

20. 0369 

NEA-6B 

6.8981 

A-7A 

145.0487 

A-7B 

152. 1806 

A-7C 

93.0960 

A-7E 

154.2860 

NA-7A 

42. 5617 

NA-7C 

23. 9800 

NA-7E 

24.7737 

C-  1A 

100. 6243 

C-2A 

173.0653 

TC-4C 

118.4421 

C-9B 

1.6856 

AD-A073  037  RAND  CoRP  SANTA  MONICA  CA  F/6  5/1 

NAVMAN:  A MODEL  FOR  ESTIMATING  MAInTENaNCF  PFRSONNFL  REOUIREMEN — ETC(U) 
JUn  79  B ARMSTRONG*  J SCHANK*  G BLAIS  MOA903-77-C-0107 

UNCLASSIFIED  RANO/R-2402/2-PA/E  NL 

■■■■■■■■■■■ 
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I 


-88- 

Table  F.4  (cont.) 


Type 


Aircraft 

t value 

C-117D 

118. 3298 

TC-1 17D 

114.7170 

C-118B 

236.8508 

VC-1  18B 

349.4821 

EC- 12  IK 

204. 8831 

NC-121K 

241.  1442 

DC-130A 

154. 3167 

C-130F 

328. 4957 

KC-1 30F 

293.2352 

LC-130F 

225. 1896 

EC-130G 

545.2754 

LC-130H 

60.5400 

EC-130Q 

509. 1 160 

KC-1 30P 

123. 3165 

LC-  1 30  ft 

152. 7133 

C-131F 

74.2234 

C-13  1G 

128.4975 

E-IB 

117.5527 

TE-2A 

103.3385 

E-2B 

289. 8170 

E-2C 

219. 3658 

TE-2C 

43.7143 

F-4B 

213. 0874 

EF-4B 

98.8330 

QF-43 

28. 3656 

RF-4B 

366. 5163 

F-4J 

204.8710 

NF-4J 

59.5417 

YF-4J 

38.0393 

F-4N 

183.5623 

F-5E 

36.0150 

KF-8G 

216.4609 

F-3U 

76.5467 

F-8J 

213.4764 

DF-8L 

36.4398 

F-14A 

242.9594 

UF-86H 

11.0618 

UH-1E 

58.4336 

AH- 1 G 

29.6287 

UH-1H 

43.4216 

AH-  1 J 

64. 3724 

HH-1K 

22.5604 

TH-1L 

76. 3485 

UH-1L 

40.4633 

UR-1N 

28.7497 

VH-18 

2.  0037 

i 
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Table  F.4  (cont.) 


I 


! 
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Type 

Aircraft 

b value 

NUH-lE 

1.3617 

UH-2A 

28.3300 

HH-2D 

58.6072 

SH-2D 

97.6190 

SH-2P 

95.2420 

NHH-2D 

16.435b 

6H-3  A 

89.7911 

SH-3A 

110.6316 

SH-3C 

1 JO. 0747 

SH-3G 

127.4133 

SH-3H 

105. 5128 

OH-3  A 

95.9279 

VH-3A 

19.5989 

VH-3D 

4.6698 

YSH-3J 

11.2286 

CH-46A 

104. 5250 

HH-46A 

62.  1392 

CH-46D 

79. 3345 

UH-46D 

66.0274 

CH-46E 

48.5683 

CH-46F 

78.8277 

NCH-46A 

29. 1108 

CH-53A 

89.4456 

CH-530 

96.2272 

HH -53D 

68.4092 

CH-53E 

22.4389 

DP-2E 

206. 6904 

EP-2H 

305.5764 

SP-2H 

128.8860 

NP-2H 

144.1308 

P-3A 

236.5391 

EP-3A 

120. 5829 

BP-3  A 

228. 1090 

P-3B 

383.2156 

EP-3B 

477. 2564 

P-3C 

256.2503 

HP-3D 

167.3317 

EP-3E 

416. 3184 

TS-2A 

95.0656 

US- 2 A 

50.5629 

US-2B 

64.7171 

US-2C 

82.0309 

S-2D 

180.  1728 

90- 


Table 

F.4  (cont.) 

Type 

Aircraft 

b value 

S-2G 

98. 1207 

3-  3A 

223.  1657 

OS- 3 A 

11.1111 

T-2B 

82. 9258 

DT-2B 

61.0154 

T-2C 

76. 7140 

T-28  3 

39. 7369 

T-  28C 

30.3450 

T-29E 

22.5C87 

T-  29C 

49.3315 

WT-33A 

10.5208 

T-  34  B 

7.C393 

T-  38  A 

36.2355 

QT-33A 

2.2995 

T-39D 

172. 1076 

CT-39I 

57.9767 

CT-39G 

36.7162 

N0-1B 

7. 3300 

U-3A 

7.3472 

U-11A 

13. 1447 

3U-16D 

111.015o 

AV-8A 

1 G 2 . 3507 

TAV-3A 

66.  1 179 

OV-10A 

109.3294 

X-26A 

. 3792 

SOURCE : 

ACM-02. 
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Appendix  G 
PROGRAM  LISTING 


I 

U 


;l 

| 


This  appendix  contains  the  computer  listing  of  the  PL/1  NAVMAN 
program. 


7. 

8.  NATHAN 

9. 

10.  NATHAN  BSTIHATKS  HANPOBBR  REUUIRBUENTS  FOB  t8B  ORGANIZATIONAL 

11.  AND  INTBBHEOIATB  RAINTBNANCE  OF  NAVT  AIRCRAFT. THE  HODEl 

12.  UTILIZES  BANT  IETEODOLOGT  FBOH  THE  SQUADRON  HANNING  DOCOHBNTS 

13.  PROCESS  AND  FBOB  ACR-02. OSEB  INPOTS  INCLUDE  FLYING  PBOGBAN 

14.  PA BAH BT BBS, TYPE  AND  BOflBEB  OF  AIBCBAFT, AND  RELIABILITY  AND 

15.  HA INT AIN ABILITY  DATA. BORA  CENTER, SQUADRON, AND  FLEET  HANPOHBB 

16.  BEQUIBEHENTS  FOB  SEA  AND  SHORE  ABE  GENERATED. SENSITIVITY 

17.  ANALYSIS  AND  THE  CAPABILITY  TO  OVEBBIDE  CERTAIN  STORED  FACTOBS 

18.  ABE  HODEL  OPTIONS 

19. 

20. 

21.  DCL  BOBK_CENTBR_CODES  (23)  CHAR(3)  INIT(»010', 

22.  '020', *030', *040', 

23.  *050*, ‘060*, • 100*, 

24.  *110', '120*, '121*, 

25.  *130* ,*131* ,•140*, 

26.  *200*, *210*, *211*, 

27.  *2 20*, *230* ,•240*, 

28.  *300*, *310*, *320*, *999*) ; 

29.  DCL  ■OEX.CENTBB.BARBS  (23)  CHAB(30)  INIT( 

30.  ’HAIETENANCE  OFFICES 


i 

I 


I 


I 
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31.  ' HAIMTEMANCE/8ATBBIAL  CONTROL  ', 

32.  • BAINTEMANCB  ADMINISTRATION  1 , 

33.  ' QOALITT  ASSDBABCB 

34.  ' MATERIAL  COMTBOL 

35.  'DATA  AMALTSIS  ', 

3ft.  ' AIBCBAFT  DITISIOH 

37.  ' POWER  PLANTS  BBAMCI 

38.  ' AIRFRAMES  BBAMCH 

39.  ' COBBOSIOH  COMTBOL  ', 

40.  ' ATIATOB  8QUIPHEMT 

41.  'SAPBTT  EQUIPMENT 

42.  • FLAMMED  BAIMTEMAMCE 

43.  • ATIOMICS/AR8AHBBT  DITISIOH 

44.  ' ELBCTBICAL  BBAMCH 

45.  ' ELECT BOMIC  PIBE  COMTBOL  ', 

4ft.  1 ELECTBICAL/IMSTBOHEMTS 

47.  'BEAPONS  BBAMCH  ', 

48.  'PHOTO  SHOP 

49.  'LIME  DITISIOH  ', 

50.  'PLANE  CAPTAINS  ', 

51.  'TBOOBLE  SHOOTERS  ', 

52.  • AGGBEGATE  •); 

53.  OCL  PBOD_DELAT_PACTOB_SEA  (23)  FLOAT (6)  IMIT((7)  0, 

54.  .30,. 20,. 10, .05.. 10, 

55.  0,0, .35, .35, .35, .30, 

5ft.  . 35,0,. 20,0) ; 

57.  OCL  PBOD_OELAr_FACTOB_SHORB  (23)  FLOAT  (ft)  INIT((7)  0, 

58.  .10, .15, .10, .05, .10, 

59.  0,0, .30, .30, .20,. 10, 

ftO.  .30,0, .10,0) ; 

ftl.  OCL  FACILITIES_HAIBTBMAMCE_F ACTORS  (23)  FLOAT (ft)  IMIT (0, . 063, 0, 0, 


1— ■ mm,  ■ — - — - 
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] 

i 

! 

j 


f 

I 


i 


62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 


.0653, 0,0,. 0956,. 0998, 

.0621,. 0590,. 0696,. 0923, 

0,. 0769,. 106,. 0578,. 0891, 

.0408,0,. 3182,0) ; 

DCL  OTILITT_TASK_HOORS1  (23)  FLOAT  (6)  I8IT  (0, 10 . 4 ,0, 0, 

10. 4. 0. 0. 41. 5. 41. 5j0, 10.4 

10.4.0. 0.62.2.62.2.41.5, 

41.5.0. 0.103.7.0)  ; 

DCL  OTILITY_TASK_HO0BS2  (23)  FLOAT  (6)  MIT  (0, 10.4,0,0, 

10.4.0. 0.20.7.20.7.0. 10.4 

10.4.0. 0.20.7.0.20.7, 

20.7.0. 0.62.2.0) ; 

DCL  UTILITT_TASK_HOORS3  (23)  FLOAT (6)  MIT  (0 , 10.4,0,0, 

10.4.0. 0.0.0.0.10.4.10.4, 

(10)  0); 

OCL  AV4ILABILITY_SBOBE  FLOAT (6)  MIT(31.9); 

DCL  AVAILABXLITI_VP  FLOAT  (6)  MIT(51.0); 

DCL  AVAILABILITY_SEA  FLOAT  (6)  INIT(63.0); 

DCL  AD8M_SUPP0BT_SPBXADS  (22,10)  FLOAT  (6)  MIT  ((70)  0.0, 

.088,. 10,. 125,. 095, .13, 
.127,.  125, .11, .095, .095, 
.09,. 105,. 145,. 058,. 193, 

. 163,. 145,. 091, .058,. 108, 
.066, .054, .088, .088, .088, 
.053,. 088,. 04 2,. 126,. 126, 
.065,. 051,. 066,. 085,. 04, 

. 044, . 066, .046, .128, .128, 
.079,. 084,. 084,. 091,. 087, 
.091,. 084,. 063, 0.0, 0.0, 
.067,. 045,. 097,. 024, 0.0, 
.059,. 097, 0.0,. 024,. 024, 


I 
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(10)  0.0, 

94. 

. 086,. 082,. 11 3,. 174,. 1 38 

95. 

. 141,. 187, .076,. 174,. 144 

95. 

. 109,. 11 9, 0.0, 0.0, 0.0, 

97. 

0.0, 0.0, 0.0, 0.0, 0.0, 

98. 

. 106,. 108,. 095,. 106,. 142, 

99. 

. 1 13, . 1 15, . 087, . 106, . 1 36, 

100. 

.123,. 078,. 094,. 092, 0.0, 

101. 

.07, 0.0,. 074,. 092, .132, 

102. 

(7)  0.0, .25, 0.0, 0.0, 

103. 

(10)  0.0, 

104. 

. 122, . 174, . 093,. 187, .182, 

105. 

. 139,. 093,. 161,. 197,. 107, 

106. 

(10)  0.0); 

107. 

DCL  PATGBADB_8 ATBII020  (9,20) 

FLOAT  (6)  HIT  ((40)  0, 

108. 

0,1, 1,2, 2, 2, 3, 3, 4, 4, 4, 

109. 

5,5,6,6,7,7,8,9,10, 

110. 

0,0, 1,1, 1,2, 2, 2, 2, 3, 3, 3, 

111. 

4, 4, 4, 4, S, 5, 5, 5, 

112. 

(10)  1,2, 2, 2,2, 

113. 

(8)  3. 

114. 

(4)  0,(16)  1, 

115. 

(7)  0,(13)  1, 

116. 

(90)  0); 

117. 

DCL  PATGBADB_HATBIX050  (9,20) 

FLOAT (6)  IBIT ( (40)  0, 

118. 

0,1, 1,1, 2, 2, 2, 2, 3, 3, 

119. 

4, 4, 4, 5, 6, (5)  0, 

120. 

0,0. 0,1, 1,2. 2, 2, 2, 3, 3, 3 

121. 

*.*.9.(5)  0, 

122. 

(6)  1,(9)  2.(5)  0, 

123. 

0.0,  (9)  1,(4)  2,(5)  0, 

124 
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125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 

149. 

150. 

151. 

152. 

153. 

154. 


(7)  0, (8)  1,  (5)  0, 

(40)  0); 

DCL  PBODOCTIOBJMTBIX  (9,80)  FLOAT  (6)  IIIT((160)  0, 

0,1, 1,2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 
5,5,6,7,7,7,8*9,10,10,10, 
11,11,12,12,(4)  13,14,14, 

(3)  15,(3)  16,17,(3)  18, 

(4)  19,(3)  20,21,21, 

(4)  22,23,24,24,24,24, 
25,26,26,26,27,28,28,28, 
29,30,30,30,31,(5)  0, 

0,0, 1,1, 1,2, 2, 3, 3, 3, 3, 

(7)  4, 5, 5,5,5, (5)  6, 

(9)  7,8,8. (5)  9,10,10, 

10,10,11,11,11,(4)  12, 

(3)  13,(3)  14,(6)  15, 

(4)  16,(4)  17,(4)  18, 
19,19.(5)  0, 

(8)  1,2, 2.2, 2, (5)  3,4, 4,4, 

4,4,4, (7)  5,(5)  6,(4)  7,8, 
8,8, 8, 9, 9, 9, (4)  10,(4)  11, 
(6)  12,(4)  13,(4)  14, 

(4)  15,(3)  16.(5)  0, 

(4)  0,(10)  1.(11)  2,(11)  3, 
(11)  4,(9)  5,(19)  6,(5)  0, 

(10)  0,(19)  1,(10)  2.1, 

(19)  1,2,  (15)  2.(5)  0, 

(39)  0,(36)  1,  (5)  0, 

(80)  0); 

DCL  LIB8_DITISI0B_BATBIX  (9,120)  FLOAT (6)  HIT ( 

(240)  0,0, 1,2, 3,4, 5, 5, 
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0,0, 1,1, 1,2, 2, 2, 2, 

2, 2, 2,3,3,*, 4, 4, 5,5,6, 

(5)  6,7, 7, 8. *,8,9, 9, 9, 

(4)  10,11,11,12, 

(7)  1,2, 2, 2, 2,  (5)  3, 

(4)  4,4, 5,5,5, (4)  6, 
7,7,7, (5>  8,(41 
(41  0,(41  1,(121  2. 

(20)  3, 

(10)  0,  (10)  1,(20)  1, 

(80)  0); 

DCL  BEQ0ISITI OB_FACTOfiS  (10)  FLOAT (6)  I«IT( 

1.2723, 1.9962,2.3956, 
1.5376,3.2059,1.9962, 
2.3956,3.1333,1.5376, 
1.5376) ; 

DCL  BOOBDOPF_TABLB_SEA  (10)  FLOAT (6)  IBIT (1.050, 

2.  100,3.  150,4.20,5.25, 

6.3.7.35.8.4.9.45.10.5)  ; 

DCL  BO0MDOPF_TABLB_SBOBB  (10)  FLOAT (6)  IHIT(1.078, 

2. 156,3.234,4.312,5.391. 

6.469.7.5.8.5.9.5.10.5)  ; 


DCL  BOOBDOPF_TABLB_SEA  (10) 


DCL  1 TAC_I BP0T, 


2 TTPE_OF_AIBCBAFT 
2 TAC_FILLBB 

DCL  AIBCBAFT_CODES  (10,2) 


CHAB  (15), 

CBAB (65) ; 

CB AB (15)  IBIT ( 

'FA* , 'ATTACK*, 
•TF'.'FIGBTBB', 
•FP'.'PATBOL', 


' f S • , • ABTI  SDBBABIBB 1 , 
• FAB • , • BABLT  IABIIBG' , 
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»AQ','ECS', 

»Q*  , ' INTELLIGENCE' 


217. 

218. 

219. 

220. 

221. 

222. 

/• 

223. 

DCL 

224. 

225. 

DCL 

226. 

227. 

228. 

DCL 

229. 

230. 

231. 

DCL 

232. 

DCL 

233. 

DCL 

234. 

DCL 

235. 

DCL 

236. 

DCL 

237. 

DCL 

238. 

DCL 

239. 

DCL 

240. 

DCL 

241. 

DCL 

242. 

DCL 

243. 

DCL 

244. 

DCL 

245. 

DCL 

246. 

DCL 

247. 

DCL 

r = FIXED  KING, 
ni  MI  nUN_f1EN  (10) 

CH_PRCT_VAP  (23) 

CB_PRCT_OTHEB  (23) 

HOURS_SEA 
HOURS_SHORE 
¥AH_L 
VAB  _X 

HAKE_READY_PUTAHAT_FACTOH 

PBODUCTI¥ITY_ALLOBABCB_FACTOB 

AIBCB APT_PEB_SQOADRON 

B DUBE R_OF_S QUAD  RONS 

SOHTI E_R AT E_S EA 

SOBTIE_RATE_SHORE 

SOBTIE_LENGTH_SEA 

SOBTIB_LENGTU_SHOBE 

SORTIES_NEEK_SBA 

S ORTI BS _H E BK_S HOB E 

PLTIMG_DAIS_HEEK_SEA 

PLIING_DATS_HEBK_SHORB 

NOHBER  DEFAULT  INPUTS 


556, 1.0, 0,  1. 0,0,0,. 50,. 75)  ; 
FLOAT (6)  INIT ( 

(7)  0,. 66, .61, 1.0, . 84, .60, 0,0 
.82, .86, .83, .64, 0,0, .55, 0,0)  ; 
FLOAT (6)  INIT ( 

(7)  0,. 81, .72, 1.0, .95, .77, 0,0 
. 9 3,0,. 90,. 92,. 90,0,. 67, 0, 0)  ; 
FLOAT  (6) ; 

FLOAT  (6) ; 

FLOAT (6) ; 

FLOAT (6) ; 

FLOAT  (6)  INIT(.JO); 

FLOAT (6)  INIT  (. 20) ; 

FLOAT (6) ; 

FLOAT  (6)  ; 

FLOAT (6) ; 

PLOAT  (6) ; 

FLOAT  (6)  ; 

FLOAT  (6) ; 

FLOAT (6) ; 

PLOAT  (6)  ; 

FLOAT  (6) ; 

FLOAT  (6)  ; 


•BFAH*, ‘PHOTO', 

•HU', 'NINE  SWEEPING  ' , 
•HS»,»ANTI  SUB  HELLO' ) 
H = HELICOPTEB  •/ 

FLOAT  (6)  INIT (2. 2, 

1.583 


FLOAT (6) 
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248. 

DCL 

1 DC_IHP0T, 

249. 

2 DEPAULT_CODE 

CHAR  ( 1 ) , 

250. 

2 DC_PILLEB 

CHAR  (79) 

251. 

or 

CH_PBRCBHT 

FLOAT (6) 

252. 

DCL 

PH_PBRCBHT 

PLOAT  (6) 

253. 

DCL 

AS_COEFF1 

FLOAT (6) 

IHIT (306. 9048) 

254. 

DCL 

AS_COEFP2 

PLOAT  (6) 

I N IT  (.  38519)  ; 

255. 

DCL 

AS2_COBPP1 

PLOAT (6) 

IHIT(124.6715) 

256. 

DCL 

AS2_COBFP2 

PLOAT (6) 

IHIT (. 3652) ; 

257. 

DCL 

AS5_COEPP1 

FLOAT  (6) 

IHIT (57.7481) ; 

258. 

DCL 

AS5_COEPP2 

PLOAT (6) 

IH IT (.  3625) ; 

259. 

DCL 

H_SEA  (23) 

PLOAT (6) 

IHIT ( (23)  0); 

260. 

DCL 

H_3HOBB  (23) 

FLOAT  (6) 

IHIT ( (23)  0); 

261. 

DCL 

HIHOS_HOURS_SEA  (23) 

FLOAT  (6) 

IHIT ( (23)  0); 

262. 

DCL 

HIHOS_HOUBS_SBOBE  (23) 

FLOAT (6) 

IHIT  ( (2.1)  0); 

263. 

DCL 

PLOS_HOORS_SBA  (23) 

FLOAT (6) 

IHIT ( (23)  0); 

264. 

DCL 

PLOS_HOURS_SHORE  (23) 

FLOAT  (6) 

IHIT ( (23)  0); 

265. 

DCL 

GRADE_LBTBL_SEA  (23,10) 

PLOAT  (6) 

I HIT ( (230)  0)  ; 

266. 

DCL 

GRADE_LEVBL_SHORE  (23,10) 

FLOAT (6) 

IHIT ( (230)  0) 

267. 

DCL 

TOTAL_A IRC RAPT 

FLOAT (6) 

• 

268. 

DCL 

FLTIHG_HOORS_HEEK_SBA 

PLOAT  (6) 

• 

269. 

DCL 

PLIIMG_HOU RS_M  EEK_SHORE 

PLOAT (6) 

• 

270. 

DCL 

TOTAL_PEHSOHHEL_SE A 

PLOAT  (6) 

IHIT (0) ; 

271. 

DCL 

TOTAL_PERSOHHBL_SHORE 

PLOAT (6) 

IHIT (0) ; 

272. 

DCL 

HC_CODE 

CHAR (3) ; 

273. 

DCL 

1 RH_DATA, 

274. 

2 A A_TTPE 

CHAR (2)  , 

275. 

2 PILLER1 

CHAR  (1)  , 

276. 

2 I_TIPB 

CHAR  (1)  , 

277. 

2 PILLBR2 

CHAR  ( 1)  , 

278. 

2 J_TTPE 

CHAR  (1), 

100' 


279. 

2 PILLBB3 

CHAB  (1)  , 

280. 

2 K.TTPE 

CHAB  (1) , 

281. 

2 FILLEB4 

CBAB ( 1)  , 

2 82. 

2 XXX.CODE 

CHAB (3) , 

283. 

2 FILLERS 

CHAB  (3) , 

284. 

2 FIX 

CHAB  (4)  , 

285. 

2 PILLEB6 

CHAB  (2)  , 

286. 

2 T2X 

CHAB  (4)  , 

287. 

2 FILLBB7 

CHAR  (2)  , 

288. 

2 f 31 

CHAB  (4) , 

289. 

2 FILLERS 

CHAB  (2) , 

290. 

2 V4X 

CHAB  (4) , 

291. 

2 RBD.FILLEB 

CHAB (43) ; 

292. 

DCL 

IMDX 

FIXED  BIB  (31)  ; 

293. 

DCL 

T 1 

FLOAT (6) 

• 

294. 

DCL 

72 

FLOAT (6) 

• 

295. 

DCL 

73 

FLOAT (6) 

« 

296. 

DCL 

T4 

FLOAT (6) 

• 

297. 

DCL 

AIBCBAFT.INDX 

FIXED  BIB (31) ; 

298. 

DCL 

BAN_PH_BOBKLOAD_ 

.SEA 

(23) 

FLOAT (6) 

INIT ( (23) 

0) 

299. 

DCL 

RAH_PH_HOBKLOAD_ 

.SHOBE 

(23) 

FLOAT (6) 

IIIT  ( (23) 

0) 

300. 

DCL 

BAH.Ta.HOBRLOAD. 

.SEA 

(23) 

FLOAT (6) 

IBIT ( (23) 

0) 

301. 

DCL 

BAf_Ta_HOBRLOAD. 

.SHOBE 

(23) 

FLOAT (6) 

I BIT ( (23) 

0) 

302. 

DCL 

HAf_CB_80RRL0AD_ 

.SEA 

(23) 

FLOAT (6) 

INIT  ( (23) 

0) 

303. 

DCL 

HAB_CH_80BRL0AD. 

.SHOBE 

(23) 

FLOAT (6) 

INIT ( (23) 

0) 

304. 

DCL 

tOTAL_BA»_PB_PLOS. 

_CB_SBA 

FLOAT (6) 

INIT (0) ; 

305. 

DCL 

TOTAL_BAH_PB_PLUS. 

.CB.SHOBE 

FLOAT (6) 

INIT (0)  ; 

306. 

DCL 

BABEB.CB.BOBRLOAO. 

.SEA 

(23) 

FLOAT (6) 

IBIT ( (23) 

0) 

307. 

DCL 

BAB  KB.CB.BOBE LOAD. 

.SHOBE 

(23) 

FLOAT (6) 

IBIT ( (23) 

0) 

308. 

DCL 

TOT A L_PH .BOHR LOAD. 

.SEA 

(23) 

FLOAT (6) 

IBIT ( (23) 

0) 

309. 

DCL 

TOT AL.PB.BO RELOAD. 

.SHOBE 

(23) 

FLOAT (6) 

IBIT ( (23) 

0) 
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310. 

DCL 

TOTAL_CH_BOBKLOAD_SE A 

(23) 

FLOAT  (6) 

IBIT ( (23)  0) 

311. 

DCL 

TOTAL _CN_BOBKLOAD_S HO BB 

(23) 

FLOAT  (6) 

IBIT((23)  0) 

312. 

DCL 

TOTAL_TN_BOBKLOAD_SEA 

(23) 

FLOAT (6) 

HIT  ( (23)  0) 

313. 

DCL 

TOTAL_TH_iOBKLOAD_SHOBB 

(23) 

FLOAT (6) 

IBIT  ( (23)  0) 

314. 

DCL 

TOTAL_PLEET_SEA 

FLOAT  (6) 

• 

315. 

DCL 

TOTAL_PLEET_SHOBB 

FLOAT (6) 

• 

316. 

DCL 

ISHB_SEA 

FLOAT (6) 

• 

317. 

DCL 

ISNB_SHOBE 

FLOAT (6) 

O 

1 

310. 

DCL 

AS_0OOBS_SEA  (23) 

FLOAT (6) 

IBIT ( (23)  0) 

319. 

DCL 

AS_HOOBS_S0OBE  (23) 

FLOAT (6) 

IBIT ( (23)  0) 

320. 

DCL 

OTHBB_HOUBS_SEA  (23) 

FLOAT  (6) 

IBIT  ( (23)  0) 

1 

321. 

DCL 

OTHEB_HOUBS_SBOBB  (23) 

FLOAT (6) 

IBIT ( (23)  0) 

322. 

DCL 

HC_OTHEH_HO0BS 

FLOAT (6) 

IBIT (0) ; 

1 

ii 

323. 

DCL 

TOT AL_AS_BOOHS_SEA 

FLOAT (6) 

IHIT(0)  ; 

324. 

DCL 

TOTAL_AS_HOOBS_SHOBE 

FLOAT  (6) 

IBIT  (0)  ; 

325. 

DCL 

BOBKCEHTEB_TH_SPBEAD_TFA 

(23) 

FLOAT (6) 

IBIT  ( 

326. 

(7)  0 , . 096, . 

188, .042, .009 

1 

327. 

.058,(2)  0,. 

064, .068, .099 

328. 

.128,(2)  0,. 

248,(2)  0); 

329. 

DCL 

■OBKCBBTEH_PH_SPBEAD_YFA 

(23) 

FLOAT (6) 

IBIT  ( 

330. 

(7)  0 , . 096 , . 

235, .0, .003, 

331. 

.065,(2)  0,. 

034, .030, .044 

: 

332. 

.162,(2)  0,. 

331,(2)  0); 

! 

333. 

DCL 

BOBKCENTEB_Cfl_SPBEAD_VFA 

(23) 

FLOAT (6) 

IBIT  ( 

334. 

(7)  0, .095, . 

173, .063, .011 

335. 

.0S3,  (2)  0,. 

079,. 090, .124 

336. 

.110,(2)  0,. 

202,(2)  0); 

337. 

DCL 

HOBKCEHTEB_TB_SPBEAD_OTHEB  (23) 

FLOAT (6) 

IBIT  ( 

338. 

(7)  0, . 1 17, . 

166, .069, .022 

339. 

.056,(2)  0,. 

241, .0,. 126, 

340. 

.036,(2)  0,. 

167,(2)  0); 
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' 
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341. 

DCL  «OBKCBBTER_PB_SPBBAD_OTHEB 

(23) 

FLOAT  (6)  HIT  ( 

342. 

(7)  0, .139,. 296, .0,. 005, 

343. 

.084,(2)  0, . 108, .0, .058, 

344. 

.008,(2)  0, . 302,  (2)  0); 

345. 

DCL  BOBKCEHTEB_CB_SPBEAD_OTHEB 

(23) 

FLOAT (6)  IIIT ( 

346. 

(7)  0,. 112, . 143, .083, .025, 

347. 

.051,(2)  0,.271,.0,.137, 

349. 

.041,(2)  0,.  137,  (2)  0); 

349. 

DCL  STOBE_TITLE 

CHAB  (80) ; 

350. 

DCL  STOBE_PB_HHH_BEEK 

(23) 

FLOAT (6)  IIIT((23)  0); 

351. 

DCL  STOBE_PB_BaH_DAT 

(23) 

FLOAT (6)  IIIT((23)  0); 

352. 

DCL  STOBE_PB_BBH_PH 

(23) 

FLOAT (6)  IHIT((23)  0); 

353. 

DCL  STOBE_PB_aaH_S 

(23) 

FLOAT  (6)  HIT  ((23)  0); 

354. 

DCL  STOBE_CB_BNH_FH 

(23) 

FLOAT (6)  IBIT( (23)  0); 

355. 

DCL  STORE_CB_BBH_S 

(23) 

FLOAT (6)  IBIT((23)  0); 

356. 

DCL  STOBB_C8_aTBP 

(23) 

FLOAT  (6)  IBIT((23)  0); 

357. 

DCL  STOBE_CB_BTTB 

(23) 

FLOAT (6)  IBIT((23)  0); 

358. 

DCL  B Ufl BE B_OF_ SHIFTS 

FLOAT (6) ; 

359. 

/*  AIBD  CALCOLATIOB  VABIABLES 

•/ 

360. 

DCL  I_LETEL_a ABHOOBS_BBBK 

FLOAT (6) ; 

361. 

DCL  I_LETEL_SPBEAD 

(5,10) 

FLOAT (6)  IMIT ( 

362. 

.20,.  25,. 28,. 25,. 20,.  15,. 35, 

363. 

.20, .33, .33, 

364. 

. 12,. 15,. 16,. 11, . 10,. 11,.  18, 

365. 

.23,. 15,. 15, 

366. 

.60,. 50,. 52,. 57,. 65,.  69,.  50, 

367. 

.55,. 50, .50, 

369. 

.05,. 05,. 01,. 01,0, 0,0,0,. 01, 

369. 

.01, 

370. 

.03, .05, .03,. 06, .05, .05,.  02, 

371. 

.02, .01, .01) ; 
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372. 

DCL  SUPPOBT_BQUIPH£BT_HOOBS_SEA 

(5)  FLOAT (6)  IBIT( 

373. 

.52,. 42 ,1.93,. 17,. 39) ; 

374. 

DCL  SOPPOBT_EQUIPBB4T_HOOB3_SHOB« 

(5)  FLOAT (6)  IBIT ( 

375. 

.15, .19, .95, .09, .29)  ; 

376. 

DCL  AIBD_FLAG 

CHAB  (1)  taiT(«0*)S 

377. 

DCL  TOTAL_I_LEf EL_BABHOUBS 

FLOAT (6) ; 

378. 

DCL  TEBPBEB 

FLOAT (6); 

379. 

DCL  X.LETBL.aABPOWEB.SEA  (5) 

FLOAT (6) ; 

380. 

DCL  X_L8VBL_aABPOBEt_SHOBE  (5) 

FLOAT (6) ; 

381. 

DCL  X_LBVBL_AVAILABILITT_SHOBE 

FLOAT  (6)  IBIT  (3 1.9); 

382. 

DCL  I_LBVBL_AVAILABILITT_SBA 

FLOAT (6)  IBIT (60.0); 

383. 

DCL  I_LE?BL_AS_COBFF  (5) 

FLOAT (6)  IBIT( 

384. 

2.350,4.5139,4.7271,5.2731 

385. 

6.1751) ; 

386. 

DCL  I_LBVEL_BOUBDOPF  (7) 

FLOAT  (6)  IBIT ( 

387. 

1.076,2. 151,3.227,4.302, 

388. 

5.378,6.453,7.5)  ; 

389. 

DCL  TOIAL_PLEBT_I_LETEL_SBA  (5) 

FLOAT (6) ; 

390. 

DCL  TOTAL_FLBET_I_LETEL_SHOBB  (5) 

FLOAT (6)  ; 

391. 

DCL  BDBBBB_SQ_OB_SBA 

FLOAT (6) ; 

392. 

DCL  NOBBEB_AC_OB_SEA 

FLOAT (6) ; 

393. 

DCL  BOaBEB_OF_BAS_DBPLOTED 

FLOAT  (6)  ; 

394. 

DCL  BOBBEB_OF_A?IOBICS_SKILLS_BBQ 

FLOAT  (6)  ; 

395. 

DCL  SHOBE_AC_BEFOBE  (5) 

FLOAT (6) ; 

396. 

DCL  S BOB E_SQ_ ADDED  (5) 

FLOAT  (6) ; 

397. 

DCL  GSB_HOOBS_PBB_AC_SEA 

FLOAT(6)  IBIT(1.95) ; 

398. 

DCL  GSE_BOUBS_PEB_AC_SHOBE 

FLOAT (6)  IBIT (1.02); 

399. 

DCL  BEFOBE_SBA_Z 

FLOAT  (6) ; 

400. 

DCL  AFTBB_SBA_X 

FLOAT (6) ; 

401. 

DCL  BEFOBE.SaoaE.Z  (5) 

FLOAT (6) ; 

402. 

DCL  AFTSB.SHOBB.X  (5) 

FLOAT (6) ; 
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403. 

OCt  AIRD_CADBE_ADDED_SEA 

PLOAT (6)  ; 

404. 

DCL  AIBD_CAD8B_ADDE0_S8OBB  (5) 

FLOAT (6) ; 

405. 

OCL  AIHD_TOTAL_CADBE_ADDED 

PLOAT (6) ; 

406. 

DCL  SHOBE_HOOBS_XB  (7) 

PLOAT (6)  ; 

407. 

OCL  SEA_HOOBS_XB 

PLOAT  (6)  ; 

406. 

DCL  SHOBB_HOOBS_XA  (7) 

PLOAT (6)  ; 

409. 

OCL  SEA_HOUBS_IA 

PLOAT  (6) ; 

410. 

DCL  SHOBE_HEB_XB  (7) 

PLOAT (6) ; 

411. 

DCL  SBA_HBB_XB  (7) 

PLOAT (6) ; 

412. 

DCL  SHOBE_HEI_XA  (7) 

PLOAT  (6)  ; 

413. 

DCL  TOT_SBOBE_XB  (7) 

PLOAT (6)  IHIT ( (7) 

4 14. 

DCL  TOT_SHOBS_X A (7) 

PLOAT (6)  IHIT ( (7) 

415. 

DCL  SBA_BBB_X A (7) 

PLOAT (6) ; 

416. 

DCL  TOTAL_I_LEfBL_SBA 

PLOAT (6)  IBIT(O); 

417. 

DCL  TOTAL_I_LBVBL_SHOBB 

PLOAT (6)  IBIT(O); 

419. 

DCL  BC230_FLAG_SEA 

CHAB ( 1)  IHIT('O') 

419. 

DCL  BC230_PLAG_SHOBB 

CHAB (1)  IBIT('O') 

420. 

DCL  1 SBBSITIfXTI_IIIPOT, 

421. 

2 SEBSITITITT.CODE 

CHAB ( 1) , 

422. 

2 Sf  1 

CHAB  (4) , 

423. 

2 ST2 

CHAB  (4) , 

424. 

2 SI.FILLEB 

CHAB (71) ; 

425. 

DCL  SEMSITI7ITT_V AL0E1 

PLOAT  (6) ; 

426. 

DCL  SEHSITI7ITT_VALUE2 

PLOAT  (6) ; 

427. 

DCL  FACTOBl 

PLOAT (6) ; 

428. 

DCL  PACTOB2 

PLOAT  (6) ; 

429. 

DCL  PACTOB3 

PLOAT (6) ; 

430. 

DCL  SBMSITI VITT_PL AG 

PLOAT (6)  IHIT (0)  ; 

431. 

DCL  BR_HABKEB 

CHAB  (1)  IRIT('O'); 

432. 

DCL  BOC.PTB 

PLOAT (6)  IHIT (0) ; 

433. 

DCL  BDC.XXI  (25) 

CHAB (3) ; 

> 


I 


DCL  BUC_J_TIPE 

(25)  CHAR  (1) 

DCL  BUC_V1 

(25)  CHAR (4) 

DCL  HOC_f 2 

(25)  CHAR  (4) 

DCL  1 INPUT.ARRAT, 

2 IA_DATA  (12) 

CHAR (4) , 

2 IA1.PILLER 

CHAR  (32)  ; 

DCL  1 IBPUT.ARRAT2, 

2 IA.DATA21 

CHAR (3) , 

2 IA.DATA22 

CHAR  (4)  , 

2 IA2.PILLBB1 

CHAR (2) , 

2 IA.DATA23 

CHAR  (4)  , 

2 IA2.PILLEB3 

CHAR (2), 

2 IA.DATA24 

CHAR  (4)  , 

2 IA2.PILLER4 

CHAR  (61)  ; 

DCL  1 TEHP.IBPOT, 

2 TI.DATA 

CHAR  (4)  , 

2 TI.PILLEB 

CHAR (76) ; 

DECLARE  THE  IHPOT-OOTPOT  PILES  •/ 
DCL  IHFILB  PILE; 

DCL  OOTPILB  PILE; 

DCL  BHXHPTS  PILE; 


OPBB  THE  PILES 

V 

OPEi  PILE (IHPILE)  RECORD  IHPOT; 

OPEH  PILE (OOTPILB)  PRIHT  LIEBSIZE (132) ; 

OPER  PILE (RRIHPTS)  RECORD  OOTPOT; 

READ  AIRCRAFT  DESCRIPTIVE  DATA  IBCLODIH6  THE  TIPE  OP  AIRCRAFT 
BOBBER  OP  AIRCRAFT  IB  THE  SQOADROH,  HOHBEE  OP  SQOADBOH  IB  THE 
FLEET  ABD  PLTIHS  PR06BAH  VALOES  POE  SEA  ABD  SHORE 


T 
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465. 

466. 

INPUT: 

467. 

READ  PILE (INPILE)  INTO (STORE_TITLE) ; 

468. 

READ  PILE (INPILE)  INTO (TAC_INPUT) ; 

469. 

AIRCRAFT _INDX  = 0; 

470. 

DO  K = 1 TO  2; 

471. 

DO  J = 1 TO  10; 

472. 

IP  TYPE_OP_AIBCB APT  = AIBCBAFT_CODES 

(J,K) 

473. 

THEN  AIBCBAPT_INDX  = J; 

474. 

END; 

475. 

END; 

476. 

IP  AIBCBAPT_INDX  = 0 THEN  GO  TO  INPBT_EBBOB_EIIT3 

477. 

IP  AIBCBAFT_INDX  >46  AIBCBAPT_INDI  < 9 

THEN  DO; 

478. 

SUPPOBT_EQU IPS  ENT_HODRS_SHORE  (4) 

• • 

o 

II 

479. 

SUPPOHT_EQUI P8  ENT_HOOBS_SEA (4)  = 

0; 

480. 

END; 

481. 

BEAD  PILE (INPILB)  INTO (TEBP_INPUT) ; 

482. 

AIBCBAPT_PEB_SQUADRON  « T1_DATA ; 

483. 

READ  PILE (INPILE)  INTO(TEHP_INPOT) ; 

484. 

NOBBEB .OP.SQUADBONS  = TI.DATA; 

485. 

TOTAL_ AIRCRAFT  * AIBCBAPT_PEB_SQUADBON*NUHBE£!_OP_, 

486. 

BBAD  PILE (INPILB)  INTO (TEHP_INPOT) ; 

487. 

SOBTI B_BA?E_SEA  * TI_DATA ; 

488. 

READ  PILE(INPILB)  INTO (TEHP_INPOT) ; 

489. 

SOBTI E_R ATE_S BORE  = TI.DATA; 

490. 

BEAD  PILE (INPILB)  INTO (TEBP_INPDT) ; 

491. 

SOBTIB_LENGTH_SBA  = TI_DATA; 

492. 

BBAD  PILB(INPILE)  INTO  (TEHP_INPUT) -• 

493. 

SOBTI B_LBNGTH_S HOB E = TI_DATA; 

494. 

BEAD  PILE(IHPILB)  INTO (TEHP_INPOT) ; 

495. 

PLYING_DAYS_BBEK_SE A = TI_DATA; 

rT-  jbith,d'r*ti ' ' -'in 
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496. 

497. 

498. 

499. 

500. 

501. 

502. 

503. 

504. 

505. 

506. 

507. 

508. 

509. 

510. 

511. 

512. 

513. 

514. 

515. 

516. 

517. 

518. 

519. 

520. 

521. 

522. 

523. 

524. 

525. 

526. 


BEAD  FILE  (INFILE)  INTO (TEBP_INP0T) ; 

FLTING_DATS_iEEK_SHOBB  = TI_DATA ; 

SOBTI BS_WEEK_SEA  = SOBTIE_RATE_SBA  • FLTING_DAYS_NEEK_SEA 
*AIRCBAFT_PEB_SQOADROB; 

SOBTI BS_BEEK_SHORE=SOBTIE_BATE_SHOBE*FLTING_DAYS_HEEK_SHOBB 
*AIBCBAFT_PER_SQOADBON ; 

PLIIBG_HOUBS_IEEK_SEA  = SOBTIES_BEBK_SBA*SORTI B_LENGTH_SBA; 
FLTING_HODBS_HEEK_SHOBE  = SOBTI ES_NEEK_SHOBB  * 

SOBTI B_LENGTB_SBORE; 

BEAD  FILE  (INFILE)  INTO (TEBP.INPOT) ; 

NOBBBB_OP_SHIFTS  » TI_DATA; 

CALL  PAGBONB. REPORT ; ; 

/* 

BEAD  ANT  OTEBRIDE  VALUES  SPECIFIED  BT  TBE  OSEB 

•/ 

BEAD  FILB(INFILE)  INTO (TENP_INPUT) ; 

NOBBEB_DBFAOLT_IHPOTS  = TI_DATA; 

IF  NUBBER_DEFAOLT_INPOTS  = 0 TBEN  GO  TO  BEAD_NBXT_BB_INPOT; 
POT  FILE  (OOTFILE)  EDIT  (STOBB_TITLE)  (PAGE, COL ( 10) , A) ; 

POT  FILE (OOTFILE)  EDIT ( • OVERRIDE  IN POTS' ,'CODE','VA LOBS') 
(SKIP, SKIP, COL (10) , A, SKIP, SKIP, COL (15)  ,A,COL(25)  , A)  ; 

DO  I = 1 TO  ND8BBB_DEFAOLT_INPOTS ; 

BEAD  FILE(INFILE)  INTO (DC_INP0T) ; 

/«  OVERBIDE  THE  Tfl  TO  CB/PB  PEBCBNTS  FOB  TBE  NORK  CENTBBS  */ 

IF  DEFAOLT.CODE  = '1*  TBBN  DO; 

IF  AIRCRAPT_INDX  > 2 THBN  DO; 

BEAD  FILE (I NFILB)  INTO ( INPDT_ARBAT) ; 

POT  FILE (OOTFILE)  EDIT (DBFAOLT.CODE, IA.DATA) 

(SKIP, COL (17) , A, COL (25) ,12  (A  (4) ) ) ; 

DO  I = 1 TO  12; 

CH_PRCT_0TBE1(I)  = IA_DATA(I) ; 


'I 
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527. 

528. 

529. 

530. 

531. 

532. 

533. 

534. 

535. 
535. 

537. 

538. 

539. 

540. 

541. 

542. 

543. 

544. 

545. 

546. 

547. 

548. 

549. 

550. 

551. 

552. 

553. 

554. 


555. 

556. 


END; 

READ  PILE (INPILE)  I NTO ( INPOT.ARR AT)  ; 

PUT  PILE (OUTPILE)  EDIT (DBPAOLT_COOE, IA_DAT A) 

(SKIP, COL (17) , A,COL (25) , 12  (A  (4) ) ) ; 

DO  I « 13  TO  23; 

J * I - 12; 

CB_PBCT_OTHBB(I)  = IA_DATA (J) ; 

END; 

ENO; 

ELSE  00; 

BEAO  PILE  (INPILE)  INTO <INPUT_ABBAX) ; 

POT  PILE  (OUTPILE)  EDIT (DEFAOLT_CODE, I A_DATA) 

(SKIP, COL (17) , A, COL (25) , 12  (A(4)))  ; 

DO  I = 1 TO  12; 

CB_PBCT_TAP(I)  = IA_DATA  (I) ; 

END; 

RBAD  PILB (INPILE)  INTO (INPOT_ABRAT) ; 

POT  PILB(OOTPILE)  EDIT (DBPAOLT_CODE, I A_DATA) 

(SKIP, COL (17) , A, COL (25) ,12  (A  (4)))  ; 

DO  I - 13  TO  23; 

J * I - 12; 

CB_PRCT_TAP(I)  = IA_DATA  (J)  ; 

END; 

END; 

END; 

/•  OVERRIDE  THE  SPREAD  OP  TOTAL  TB  TO  BOSK  CENTERS  V 

IP  DEPAOLT_CODE  = *2'  THEN  DO; 

IP  AIBCBAPT.INDI  > 2 THEN  DO; 

RBAD  PILE (INPILB)  INTO (INPUT_ARR AT) ; 

POT  PILB (OOTPILE)  EDIT (DBPAOLT_CODE, IA_DATA) 

(SKIP, COL (17) , A,COL (25) ,12  (A  (4) ) ) ; 
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558. 

559. 

560. 

561. 

562. 

563. 

564. 

565. 

566. 

567. 

568. 

569. 

570. 

571. 

572. 

573. 

574. 

575. 

576. 

577. 

578. 

579. 

580. 

581. 

582. 

583. 

584. 

585. 

586. 

587. 

588. 


DO  I * 1 TO  12; 

NOHKCENTE8_TH_;>PHEAD_OTHER  (I)  = IA_DATA(I); 

END; 

READ  PILE  (INPILE)  INTO (INPUT.ARRAY) ; 

PUT  PILE (OUTPILB)  EDIT (DBPAULT_CODE, IA_DATA) 

(SKIP, COL (17). A ,COL (25) ,12  (A  (4) ) ) ; 

DO  I * 13  TO  23; 

J = I - 12; 

BORKCENT£R_TN_SPREAD_OTHBB (I)  = IA_DATA  (J) ; 

END; 

END; 

ELSE  DO; 

READ  PILE(IMPILE)  INTO ( INPOT.ARB AY)  ; 

POT  PILE (OUTPILB)  EDIT (DEPAOLT_CODE, IA_DATA) 

(SKIP, COL (17) , A, COL (25) , 12  (A  (4) ) ) ; 

DO  I * 1 TO  12; 

WORKCENTER_TB^SPREAD_f PA (I)  = I A_DATA  (I) ; 

END; 

READ  PILE (INPILE)  INTO (INPOT_ARBAY ) ; 

PUT  PILE (OUTPILB)  EDIT (DEPAOLT_CODE,IA_DATA) 

(SKIP, COL (17) , A, COL (25)  ,12  (A (4)))  ; 

DO  I = 13  TO  23; 

J = I - 12; 

HORKCENTER_TH_SPRBAD_VFA (I)  = IA_DATA (J)  ; 

END; 

END; 

BHD; 

/*  OVERBIDS  TAB  SPREAD  OP  TOTAL  PE  TO  NOtK  CENTERS  •/ 

IP  DBFAOLT_CODE  = *3*  THEN  DO; 

IP  AIRCRAPT.INDX  > 2 THEN  DO; 

READ  PILE (INPILE)  INTO (INPOT.ABRAY) ; 


I 


PUT  f ILI (OUTPILE)  EDIT (DBPAULT.CODE# I A.DAT A) 


(SUP,  COL  (17)  , A,  COL  (25)  ,12  (A (4)) ) 


HOBKCEHTEB.Pn.SPBEAD.OTUEH  (I)  - IA.DATA (I) 


BEAD  PILE  (IHPILE)  IBTO (IHPUY.ABBAf ) 


POT  PILE(OOTPILE)  EDIT (DBPAULT.CODE, IA.DATA) 


(SKIP# COL (17) # A# COL (25)  ,12  (A  (4))} 


HOBKCENTEB_PE_SPBBAD_OTHEB (I)  = IA.DATA (J) 


BEAD  PILE  (IMPILE)  INTO (IBPOT.ABBAT) 


POT  PILE (OUTPILE)  EDIT (DEPAOLT.CODE# IA.DATA) 


(SKIP# COL (17) # A#COL (2S)  #12  (A(4))) 


HOBKCEHTEB.PH.SPBEAD.f PA (I)  = IA.DATA (I) 


BEAD  PILE (IHPILE)  IHTO(IHPOT.ABBAT) 


PUT  PILE (OUTPILE)  BDIT (DEPAULT.CODE, IA.DATA) 
(SKIP, COL (17) # A,COL (25) ,12  (A (4) ) ) ; 


/*  OTBBBIDB  TIB  SPBEAD  OP  TOTAL  CE  TO  BOBK  CBHTBRS 


IP  DEPAULT  CODE  = *4*  THEH  DO 
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620. 

621. 

622. 

623. 

624. 

625. 

626. 

627. 

628. 

629. 

630. 

631. 

632. 

633. 

634. 

635. 

636. 

637. 

638. 

639. 

640. 

641. 

642. 

643. 

644. 

645. 

646. 

647. 

648. 

649. 

650. 


I P AXBCBAPT.IBDX  > 2 THE*  DO; 

BEAD  PILE (IBPILB)  IBTO (IBPOT.ABBAt) ; 

POT  PILE (OUTPILE)  EDIT (DBFAOLT.CODB, IA_DATA) 
(SKIP «COL (17) , A, COL (25) ,12  (A (4))  ) ; 

DO  I * 1 TO  12; 

B0BKCBBTBB_CB..SPBBAD_0TH8B(I)  ■ IA.DATA(I); 
BED; 

BEAD  PILE (IBPILB)  IBTO (IBPOT.ABBAT) ; 

POT  PILE (OOTPILB)  EDIT (DBPAOLT_CODB,IA_DATA) 
(SUP (COL  (17)  (A, COL (25)  (12  (A  (4)  ) ) ; 

DO  I * 13  TO  23; 

J = I - 12; 

■OBKCBBTEB_CB_SPBBAD_OTHEB(I)  = IA.DATA(J); 
END; 

BED; 

ELSB  DO; 

BEAD  PILE (IBPILB)  IBTO (IBPOT.ABBAI) ; 

POT  PILE (OOTPILB)  EDIT (DBFAOLT.CODE, IA.DATA) 
(SKIP (COL (17) (A (COL (25) ,12  (A  (4))) ; 

DO  I = 1 TO  12; 

BOKKCEBTEB_CB_SPBSADjrFA(I)  = XA_DATA (I) ; 
EBD; 

BBAD  PILB (IBPILB)  IBTO (IBPOT_ABBAT) ; 

POT  PILE (OOTPILB)  EDIT (DBFAOLT.CODE, IA.DATA) 
(SKIP, COL (17) ( A(COL (25) ,12  (A (4) ) ) ; 

DO  I = 13  TO  23; 

J = I - 12; 

H OBKCBBTEB_CH_SPBBAD_VPA (I)  « IA.DATA (J)  ; 
EBD; 

EBD; 

EBD; 


- 
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651. 

652. 

653. 

654. 

655. 

656. 

657. 

658. 

659. 

660. 
661. 
662. 

663. 

664. 

665. 

666. 

667. 

668. 

669. 

670. 

671. 

672. 

673. 

674. 

675. 

676. 

677. 

678. 

679. 

680. 
681. 


IP  DEPAOLT_CODB  * '5'  TBB8  DO; 

/•  OT  EBB  IDE  TUB  SPBEAD  OP  TOTAL  I LEVEL  HOOBS  TO  DIVISIOBS  •/ 
BEAD  PILE { I (PILE)  IHTO (IHP0T_AB8A7) ; 

DO  I * 1 TO  5; 

I_LBVBL_SPBBAD(I,AIBCBAPT_IHDX)  * I A_DATA (I) ; 

BED; 

POT  PILE (OOTPILE)  EDIT (DBPAOLT.CODB, IA.DATA) 

(SKIP, COL (17) , A,COL(25) ,12  (A (4))) ; 

BHD; 

/•  Of EBBIDE  THE  I LEVEL  SOP POST  BQ 0IP8EHT  HOOBS  */ 

IP  DBPAOLT_CODB  = '6'  TBEH  DO; 

BEAD  PILB(IHPILB)  IHTO (IRPOT.ABB At)  ; 

DO  I = 1 TO  5; 

J = 5 ♦ 1; 

SUPPOBT_EQOIPBEHT_HOOBS_SEA(I)  = IA_DATA (I) ; 
SOPPOBT_BQOIPHBNT_HOOBS_SHOBE (I)  = IA_DATA  ( J)  ; 

EHD; 

POT  PILE (OOTPILE)  EDIT (DEPAOLT_CODE, IA_DATA) 

(SKIP «COL (17) , A,COL (25) ,12  (A(4)))  ; 

EHD; 

/*  OVBBBIDE  THE  I LEVEL  GSE  HOOBS  PEB  AIBCBAPT  */ 

IP  DEPA0LT_CODE  = '7*  THEH  DO; 

BEAD  PILE (IHPILB)  IHTO (IHPOT_ABBAT) ; 

GSB_HOOBS_PBB_AC_SEA  = IA_DATA(1); 

GSE_HOOBS_PEB_AC_SHOBB  = IA_DATA  (2) ; 

POT  PILE  (OOTPILE)  EDIT (DEPAOLT_CODE,IA_DATA) 

(SKIP, COL (17) , A, COL (25) ,12  (A  (4) ) ) ; 

EHD; 

/•  OVBBBIDE  THE  8IBIH08  HAHHIHG  FOR  HOBK  CEHTEB  230  V 

IP  DBPAOLT_CODB  = '8*  THEH  DO; 

BEAD  PILE (IHPILB)  IHTO (IHPOT_ABBAT) ; 
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HINIHOH_HEN (AIHCBArT_INDX)  = IA_0ATA(1); 

POT  PILE (OOTFILE)  EDIT ( DBPAOLT_CODE, I A_DATA) 
(SUP, COL  (17) , A, COL  (25) ,12  (A  (4) ) ) ; 


/•  BEAD  ANT  DIBECTED  HANNING  UOOBS  AND  PLACE  IN  OTH EB_  HOUBS 
POB  THE  APPBOPBI ATB  BOBK  CENTBBS  •/ 

IP  DEPAULT_CODE  = *9*  THEN  DO; 

BEAD  FILE (INFILB)  INTO (INP0T_ABBAY2) ; 

BC_CODE  = I A_DATA2 1 ; 

NC_OTBEH_HOOBS  = IA_DATA22; 

INDZ  = 0; 

DO  I = 1 TO  22; 

IP  HC_CODE  = BORK_CBNTBB_CODBS (I)  THEN 
INDX  = I; 


IP  INDX  = 0 THBN  GO  TO  INPOT_BBBOB_BXIT2; 
OTHBB_HOOBS_SEA (INDX)  = NC_OTHBB_HOOBS ; 
OTHKB_HOUBS_SHOBE (INDX)  = »C_0THEB_800BS; 
POT  PILE  (OOTFILE)  EDIT  (DEPAOLT_CODE, I A_DATA) 
(SKIP, COL (17) , A, COL (25) ,12  (A(4))) ; 


/•  BEAD  TBE  BELIABILITT  AND  HAINTAIN ABILITY  DATA  AND  CALCOLATE 
THE  BAB  PBETENTIYE,COBB  ECTIY E, OB  TOTAL  HAINTENANCB 
BOBKLOAD  •/ 

BEAD_NEXT_BH_INPOT; 

IP  BB.HABKBB  = *1'  THBN  GO  TO  BEAD_PBOH_DISK ; 

BEAD  PILE(INPILB)  INTO  (BH  DATA)  ; 

IP  ¥11  = • • THEN  ¥11  = 'O'; 

IP  ¥21  = • • THEN  ¥21  = 'O'; 

IP  ¥31  - • • THEE  ¥31  = »0'; 


/ 


* 
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713. 

IF 

V4I  = • • THEM  V4X  = • O'  ; 

714. 

VI 

= V IX; 

715. 

V2 

* V2X; 

716. 

V 3 

= V3X ; 

717. 

V 4 

= V4X; 

718. 

WHITE  FILE(BBIIPTS)  FBOB (BB.DATA)  ; 

719. 

GO 

TO  PHOC.BB.CAHD; 

720. 

BBAD.FROB 

.DISK; 

721. 

BEAD  PILE (BBINPTS)  IITO (BB.DATA)  ; 

722. 

VI 

= V IX; 

723. 

V2 

= V2X; 

724. 

V3 

= V3X; 

725. 

V 4 

= V4X; 

726. 

PROC_BB_CABD: 

727. 

IF 

XXX_CODE  = *212'  THEM  IXX.CODE  = *211*; 

728. 

IF 

XXX.CODE  = *888'  THEN  GO  TO  BEGII.PBOCESSIIG; 

729. 

IF 

(AA.TIPE  'CH*  6 AA.TTPE  'PH*  & AA.TIPE 

730. 

TUBE  GO  TO  IHPOT.EBBOB.EXIT; 

731. 

IF 

(XXX.CODE  = '999'  | K.TTPE  = ' 1 ■ ) TRBH  DO; 

732. 

IF  K_TTPE  = • >'  THBI  DO; 

733. 

HUC.PTB  = BOC.PTB  ♦ 1; 

734. 

I0C.XIX  (BOC.PTB)  = XXX.CODB; 

735. 

■OC.J.TTPB (BOC.PTB)  = J.TTPB 

736. 

BOC.V1 (HOC.PTB)  = V1X; 

737. 

BOC.V  2 (BOC.PTB)  = V2X; 

738. 

BID; 

739. 

IHDX  = 23; 

740. 

GO  TO  CALC.IOBKLOAD; 

741. 

BID; 

742. 

IIDX  = 0; 

743. 

DO 

K = 1 TO  22; 

i 
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744. 

745. 

746. 

747. 

748. 

749. 

750. 

751. 

752. 

753. 

754. 

755. 

756. 

757. 

758. 

759. 

760. 

761. 

762. 

763. 

764. 

765. 

766. 

767. 

768. 

769. 

770. 

771. 

772. 

773. 

774. 


IP  XXX_CODE  = BOBK_CENTER_CODRS  (K)  THEM 
IMDX  = K; 


END; 

IP  INOX  = 0 THEN  SO  TO  INPOT_BBBOB_EXIT2 ; 
CALC_BOBKLOAD: 

/*  CALCULATE  BAB  CB,PB,TH  BOBKLOADS  •/ 

/• 

COBBECTITE  BAINTENANCE  DATA 


*/ 

IP  AA_TIPE  = 'CB* 

THEN  00; 

IP  J_TYPE  = *1*  THEN  DO; 

RAHEB_CH_BOBKLOAD_SBA (INOX)  = 

V 1 *PLIING_HOURS_BBEK_SEA ; 

RAN EB_CN_BOBKLOAD_SHORE  (INOX)  = 

V 1 *PLXING_HOUBS_¥EEK_SHOBE ; 

STOBE_Cfl_BBH_PH (INDX)  = flj 

END; 

IP  J_TYPE  = »2'  THEN  DO; 

BABER_CB_BOBKLOAD_SEA (INDX)  = 

V 1 *SOBTIES_BEEK_SEA; 

RABER_CH_BOBKLOAD_SHORB (INDX)  = 

V 1 *S08TIES_BBBK_SH0RB ; 

STOBE_CH_HBH_S (INDX)  = T1 ; 

END; 

IP  J_TTPE  = • 3 • THEN  DO; 

RABEB_CB_BOBKLOAD_SEA (INDX)  = 

(PLTING_HOORS_BEEK_SEA/? 1)  *»2; 

BABBR_Ca_BOBKLOAD_SHOBB (INDX)  = 

(PLTING_HOOBS_BEBK_SHORE/T1)  *B2; 

STOBE_CB_aTBP (INDX)  = »1; 
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STOBB_CH_HTTB (IHDZ)  = »2; 


/*  ADO  HR/PA  ABD  PA  TO  CH  IP  BOT  IBCLODBD  IB  THE  DATA 
IP  I_TTPE  = • 1* 

THEB  DO; 

BAHEB_CH_HOBKI.OAD_SEA (IBDI)  - 

BA«EB_CB_BOBKLOAD_SEA (IBDZ)  • 

(1.0  ♦BARE_BBADI_POTAHAY_PACTOB  ♦ 
PBODOCTITITT_ ALLOW ABC B_P ACTOR) ; 

BAH  EB_CB_WOBR  LOA  D_SHOBE (IBDI)  = 

BABBB_CH_HOBRLOAD_SHOBB  (IHDZ)  * 

(1.0  ♦ BAR  E_BEADY_POTAHAI_PACTOB  ♦ 
PBODOCTIT ITT_ALLOH ABCE_PACTOB) ; 


B AH_CH_HOBKLOAD_SEA ( IBDI)  = BAR_CB_WOBRLOAD_SEA ( IHDZ)  ♦ 
BAHEH_CH_BOHRLOAD_SEA (IBDZ) ; 

BAW_Cfl_WOBRLOAD_SHOBE (IBDZ) =BAB_CB_HOBRLOAD_SHOBE (IHDZ) ♦ 
HAHBH_CB_BOHRLOAD_SHOHE (IBDZ) ; 

GO  TO  BEAD_BEZT_BB_IHPOT; 


PBSBBBTIYB  HAIBTE1 ABCE  DATA 


IP  AA  TYPE  = • PB  * 


THEN  DO; 

STOBB_PH_HBH_WEER (IBDZ)  = HI; 
STOBB_PH_HBH_DAT (IBDZ)  = Y2; 
STOHE_PH_BHH_FH (IHDZ)  = ?3; 
STOBB_PB_HHH_S (IBDZ)  = »«; 

B AB_PB_BOBRLOAD_SEA (IBDZ)  = 

BAH_PH_HOBRLOAD_SEA (IHDZ)  ♦ 
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80*. 

807. 

808. 

809. 

810. 
811. 
812. 

813. 

814. 

815. 

816. 

817. 

818. 

819. 

820. 
821. 
822. 

823. 

824. 

825. 

826. 

827. 

828. 

829. 

830. 

831. 

832. 

833. 

834. 

835. 

836. 


VI  ♦ V2*FLTIBG_DAIS_BEBX_SEA  ♦ 

V3*FLTIBG_BOOBS_BEEK_SEA  ♦ V4 •SOBTIBS_BEE*_S BA ; 
BAB_PB_BOBKLOAD_SHOBE(IBDI)  * 

BAB_PB_BOBELOAD_SBOBB (IBDX)  ♦ 

VI  ♦ V2*FLTIB6_DATS_BBEE_SBOBE  ♦ 

V3*PLTIBG_BOOHS_BBEB_SBOBB  ♦ V4*SOBTIBS_BBEK_SHOBB; 
GO  TO  BBAD_BBXT_BB_IBP0T; 

BBD; 

TOTAL  BAIBTBB ABCB  DATA 

•/ 

IF  AA_TIPE  = »TB* 

THBB  DO; 

IF  JJfTPE  * • 1'  TBEB  DO; 

BAB_TB_MOBELOAD_SBA (IBDA)  « 

BAV_TB_BOBRLOAD_SBA (IBDX)  ♦ 

VI *FLIIBG_BOOBS_8EEK_SEA ; 

BAV_TB_BOBKLOAD_SBOBE (IBDX)  « 

BAB_TB_BOBRLOAD_SIOBB (IBDX)  ♦ 
V1*FLTIBG_BOOBS_8EBE_SBOBE; 

STOBE_CB_BBB_FB (IBDX)  * VI; 

EBD; 

IF  J_TV FE  * *2*  TBEB  DO; 

BAB_Y8_BOBKLOAD_SEA (IBDX)  » 

BAB_TB_BOBKLOAD_SBA  (IBDX)  ♦ 

V 1 4S0BTI BS_BEEX_SB A ; 

BAB_TB_BOBKLOAD_SBOBE (IBDX)  - 

BAB_TB_BOBKLOAD_SBOBE (IBDX)  ♦ 

VI *SOBTIES_BEBK_SBOBB; 

STOBB_CB_BBB_S (IBDX)  * VI; 

EBD; 
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837. 

838. 

839. 

840. 

841. 

842. 

843. 

844. 

845. 

846. 

847. 

848. 


i 

i 


849. 

850. 

851. 

852. 

853. 

854. 

855. 

856. 

857. 

858. 

859. 

860. 
861. 
862. 

863. 

864. 

865. 

866. 
867. 


IP  J.TYPE  * *3*  THE*  DO; 

BAB.TB.BOBRLOAD.SEA (IBDX)  - 

BAB.TB.BOBRLOAD.SEA (I  KOI)  ♦ 

(PLf XBG.BOOBS.BEBR.SEA/T 1) *72; 
BAB.TB.BOBKLOAD.SHOBE  (INDX)  = 

BAB.TH.BOBRLOAD.SHOBE (IBDX)  ♦ 
(PLYIBG.HOOBS.BEER.SHOBE/YI) *72; 
STOB  B.CH.HTBP (INOI)  = 71; 
STORE_CB_HTTB(IHDX)  = 72; 

EBD; 

END; 

GO  TO  BEAD_»EXT_BB_I«POT; 

/*  SPBEAD  AMY  AGGBEGATE  OB  BOC  DATA  TO  APPBPBI ATE  HOBK  CENTEBS  •/ 
BEGIB_PBOCESSIBG: 

IP  BAB.TB.BOBRLOAD.SEA (23)  > 0 THE* 

CALL  AD.SPBEAD (BAB.TB.BOBRLOAD.SEA, 
BAB.TH.BOBRLOAD.SHOBE, 
■OBRCBBTEB_TB_SPBEAD_7PA, 
BOBRCENTBB.TH.SPBEAD.OTHEB)  ; 

/* 

BBBAR  TB  INTO  Cll  AND  PM  POB  BACH  BOBR  CEBTEB 


•/ 


DO  I 3 1 TO  22; 

IBDX  * I; 

IP  BAB.TH.BOBELOAD.SEA  (I)  -»*  0 THEN 
CALL  CBTB.CALC; 

EBD; 

IP  BAB.CH_BOBRLOAD.SBA (23)  > 0 THEN 

CALL  AD_SPBEAD(BAB_CB_BOBRLOAD_SEA, 
BAH.CH.HOBELOAD.SBOBB, 
BOBRCBNTBB.CB_SPBBAD.7PA, 


1 


■ 


. ' .l  ■ ■> ' • . - 
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868. 

869. 

870. 

871. 

872. 

873. 

874. 

875. 

876. 

877. 

878. 

879. 

880. 
881. 
882. 

883. 

884. 

885. 

886. 

887. 

888. 

889. 

890. 

891. 

892. 

893. 

894. 

895. 

896. 

897. 

898. 


BOBKCEBTBB_CB_SPBBAD_OTBEB) ; 

IP  BAB_Pfl_BOBKLOAD_SEA (23)  > 0 THEN 

CALL  AD_SPBBAD (BAB_Pfl_BOBKLOAD_SEA, 
BAB_PB_BOBKLOAD_SBOBB, 
BOBKCEBTBB_PB_SPBEAD_ffA, 
BOBKCEBTBB_PB_SPBBAD_OTBBB) ; 

/•  ADD  IHDIBECT  PACTOBS  TO  BAB  DATA  TO  GET  TOTAL  PB  AID  CB 

HOBKLOADS  IB  BACB  BOBK  CBBTEB  •/ 

BHTBTLETBL: 

DO  IBDI  * 1 TO  22; 

TOTAL_PB_BOBKLOAD_SEA(IBDZ)  * 

(BAB_PB_BOBKLOAD_SBA (IBDZ)  • (1.0  ♦ 
BAKB_BEADY_POTABAY_PACTOB) ) * ( 1.0  «• 

PBODUCTIf ITT_ALLOBABCE_P ACTOB  ♦ 
PBOD_DBLAI_PACTOB_SBA (IBDZ) ) ; 

TOT AL_PB_BOBKLOAD_SBOBB (IBDZ)  * 

(B AB_PB_BOBZLOAD_SBOBB  (IBDZ)  * (1.0  ♦ 
J1AEE_BBADf_POTABAI_PACTOB) ) • (1.0  ♦ 
PBODOCTIVITI_ALLOBABC B_P ACTOB  ♦ 
PBOD_DBLAI_PACTOB_SHOBB (IBDZ)  ) ; 

TOT AL_CB_BOBKLOAD_SBA (IBDZ) -BAB_CB_BOBKLOAD_SBA (IHDZ)  • 
(1.0  ♦ PBOD_DBLAI_PACTOB_SBA (IBDZ) ) ; 

TOT AL_CB_BOBKLOAD_SBOBE (IBDZ)  » 
BAB_Cfl_BOBKLOAD_SHOBE(IBDI)  • 

(1.0  ♦ PBOD_DBLAI_PACTOB_SBOBB (IBDZ)  ) ; 

BID; 

/•  CALCULATE  TBB  ADBIBISTBATIVE  SOPPOBT  BOBK LOAD  */ 

ADBIB_SBPPOBT_SOB: 

TOTAL_BAB_PH_PIOS_CB_S*A  * 0.0; 

TOTAL_BAB_PB_PLOS_CB_SBOBB  - 0.0; 

DO  IBDZ  ■ 1 TO  22; 
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899. 

TOTAL_B Ai_PB_PLOS_CB_SBA  * TOTAL_BAB_PB_PLOS_CB_SEA  ♦ 

900. 

BAB_CR_BORKLOAD_SEA(IBDX)  ♦ 

901. 

RAB_PN_BOBKLOAD_S BA (IIDI) ; 

902. 

TOTAL_RAB_  PB_PL0S_CB_S BOBE  * TOT AL_R AB_PB_PLOS_CB_ 

SBORE+ 

903. 

BAB_CN_BOBKLOAD_SBORE (IBDX) ♦ 

904. 

RAB_Pfl_BORKLOAD_SHOBE (IBDX) ; 

905. 

BBD; 

906. 

AS_CALCOLATIOBS: 

907. 

TOTAL_AS_BOOHS_SEA  = AS_COEFP1  ♦ AS_COEPP2  • 

90S. 

TOTAL_RAB_PH_PL&S_CB_SEA  .* 

909. 

TOT AL_ AS_H0BBS_SH08E  = AS_COBPP1  ♦ AS_COEFF2  • 

910. 

T0TAL_RAB_Pfl_PL0S_C8_S BOBE; 

911. 

/• 

SPREAD  TBE  TOTAL  AS  BOBKLOAD  TO  BOBK  CEBTBBS 

•/ 

912. 

K » AIBCBAFT_IBDX; 

913. 

DO  I 3 1 TO  22; 

914. 

AS_HOORS_SBA (I)  = 

915. 

TOTAL_AS_BOORS_SEA  • ADBI B_SOPPOBT_SPRBADS (I , K) ; 

916. 

AS_BOORS_SBORE(I)  = 

917. 

TOTAL_AS_BOOBS_SBOBB  • ADBM_SOPPOBT_SPREADS (I, K) 

• 

918. 

BBD; 

919. 

/• 

CALCULATE  FB  BOBKLOAD  ABD  STOBE  IB  OTBBB_BODBS 

•/ 

920. 

FB_CALCOLATIORS: 

921. 

DO  IBDX  = 1 TO  22; 

922. 

/* 

923. 

STABDASD  BQOATXOB  FOB  BOBK  CBBTEB  020 

924. 

•/ 

925. 

IF  IBDI  - 2 TBEB  DO; 

926. 

AS_HOORS_SBA (2) =AS2_COBFF1*AS2_COEPF2* 

927. 

FLII BS_BOOBS_BEBK_S BA ; 

928. 

AS_BOOBS_SBORE(2) =AS2_COEFF1  ♦ AS2_COEFF2* 

rLTIBC_BOORS_BEEK_SBOBB; 


929 
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930. 

931. 

932. 

933. 
93*. 

935. 

936. 

937. 

938. 

939. 

940. 

941. 

942. 

943. 
9*9. 

945. 

946. 

947. 

948. 
9*9. 

950. 

951. 

952. 

953. 
95*. 

955. 

956. 

957. 

958. 

959. 

960. 


OTHB8_HOUBS_SEA (2)  * OTBBB_HOOBS_SBA (2)  ♦ 

FACILITIBS_HAIBTBNANCB_PACTOBS (2) • AS_HOORS_SBA (2)  ; 
OTHEH_HOOBS_SHOBB(2) «OTHBB_BOOBS_SHOBE (2)  ♦ 

PACILITIBS_BAINTBBABCB_PACTOBS (2) •AS_HOOBS_SBOBS (2)  ; 
BBD; 


/• 

STANDARD  EQOATIOB  FOB  BOBR  CBBTBB  050 

*/ 

ELSE  IF  1NDI  = 5 T8BB  DO; 

AS_HOOBS_SEA (5)  = AS5_COBFF1  ♦ AS5_COEFP2* 

FLIIHG_HOOBS_BBEK_S  EA» BBQO ISITIO«_P ACTOBS (K ) ; 
AS_BOOBS_SHOBB(5)  = AS5_COEFP1  ♦ AS5_COEFF2* 

PLT IN G_HOORS_BBBK_S HO RE* BBQO ISIT ION _P ACTORS (K) ; 
OTHBB_HOOBS_SBA (5)  = OTHBB_HOOBS_SBA (5)  ♦ 

FACILITIBS_BAIBTEN A BCE_F ACTOBS (5) *AS_BOOBS_SEA  (5)  ; 
OTHEB_HOOBS_SHOBB (5) «OTHEB_BOOBS_SHOBE (5) ♦ 

FACILITIBS_HAIBTBBABCE_FACTOBS (5) *AS_HOORS_SHOBB (5)  ; 
END; 

ELSE  DO; 

I * IBDZ; 

OTHEB_HOOBS_SEA (I)  a OTHBB_HOOBS_SEA (I)  * 

FACILITI BS_B A I BTBNAHCE_F ACTOBS (I) *AS_HOOBS_SEA (I)  ; 
OTHER_BOOBS_SHOBB (I)  a OTBBB_BOOBS_SBOBB (I)  ♦ 

FACILITIBS_BAIHTBH'4*CB_FACT0U5<I) *AS_HOOBS_SBOBE (I) ; 

END; 

BBD; 

/*  ADD  ANT  OT  HOOBS  TO  SBA  BOSK LOAD  AND  STORE  IN  OTHBB.HOORS  */ 
OT.CALCOLATIONS: 

IF  AIBCRAFT.IBDZ  <=2  | AIBCBAFT_IBDX  = 10  TBBN 
DO  I = 1 TO  22; 

OTHBB_BOOBS_SBA(I)  - OTHBB_8O08S_SEA (I)  * 


I 


\ 


I 
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9b  1 . 

UTILITY_TASK_HOURS1(I)  ; 

962. 

END; 

96  3. 

IP  <AI8CRAPT_INDI  >=4  6 AIRCRAPT_INDX  <=6)  | 

964. 

AIRCR APT_I NDX  = 8 THBN 

965. 

DO  I = 1 TO  22; 

966. 

OTHER_HOURS_SEA  (I)  = OTHERJCOU  RS_S8A  (I)  ♦ 

967. 

UTILITY_TASK_HOOBS2 (I)  ; 

968. 

END; 

969. 

IF  AIRCRAFT_INDX  -.=  3 6 A IRCRAFT.  INDX  ->=7  6 

970. 

AIRCRAFT_I NDX  -.=  9 THBN  GO  TO  HC320_CALC; 

971. 

DO  I = 1 TO  22; 

972. 

OTHER_HOUHS_SBA (I)  = OTHEB_HOURS_SEA (I)  ♦ 

973. 

UTILITI_TASK_HOU RS3 (I)  ; 

979. 

BND; 

975. 

/• 

CALCULATE  TROUBLES HOOT BBS  HORKLOAD  FOR  SHORE  AMD  SEA 

976. 

VP, 

VS)  AND  STORE  IN  OTHER  HOURS  FOR  APPROPRIATE  HORK 

977. 

HC J20_ 

CALC: 

978. 

/* 

HC  320  TROUBLESHOOTERS  CALCULATIONS  */ 

979. 

V AR_L  = 1.0; 

980. 

V AR_X  = 1.0; 

981. 

IF  A I BCR A PT_ I NDX  <=  3 THEN  DO; 

982. 

VAt_L  = .5; 

983. 

VA«_X  * 2.0; 

984. 

BND; 

985. 

/• 

AT 

SHORE  6 (NAT  VA,VP,VS)  AT  SEA  CALCULATIONS  FOR  HC 

986. 

HOU8S_SHOBE  = (SOBTIES_HEBR_SHOBE*VAR_L) /»AB_X ; 

987. 

DO  K > 8,15,17; 

988. 

OTHE8_HOURS_SROR8 (K)  > OTHEB_HOURS_SHORE  (K)  ♦ 

989. 

HOURS_SHOII; 

990. 

BND; 

991. 

OTHEB_IOORS_SHORB(9)  > OTHER_HOU8S_SHOBE (9)  ♦ 
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992. 

993. 

994. 

995. 

996. 

997. 

998. 

999. 
1000. 
1001. 
1002. 

1003. 

1004. 

1005. 

1006. 

1007. 

1008. 

1009. 

1010. 
1011. 
1012. 

1013. 

1014. 

1015. 

1016. 

1017. 

1018. 

1019. 

1020. 
1021. 
1022. 


/* 


2*HO0aS_S8OHB; 

IF  AIBCBAFT.IHDX  >26  AIBCBAFT_IHDI  -=4 
TUB*  DO; 

HOORS_SEA  = (SOBIIBS_BBBK_SBA*7AB_L)/TAB_X; 
DO  K = 8, 15,  17; 

OTHBB_HODBS_SBA (K)  * OTHBB_HOOBS_SEA <K)  ♦ 
HOOBS.SEA; 

BID; 

OTHEB_HOOBS_S BA (9)  = OTBBB_HO0BS_SBA (9)  ♦ 
2*HO0BS_S£A; 

BID; 


TOTAL  TBB  BOBKLOADS  FOB  BACH  BOBK  CEITEB 


*/ 


DO  I = 1 TO  22; 

TOTAL_TB_HOBKLOAD_SEA (I)  = TOT AL_CB_iOBKLOAD_SEA (I)  * 

TOTAL_PB_HOBKLOAD_SEA (I)  ♦ 
AS_HOOBS_SEA (I)  * 
OTHBB_HOOBS_SKA (I)  ; 

T0TAL_TB_80BKL0AD_SH08B (I)  = TOTAL_CB_HOBKLOAD_SHOBE (I)  ♦ 

TOTAL_PH_BOBICLOAD_SHOBE  (I)  ♦ 

AS_HOOBS_SHOBB  (I)  ♦ 
OTHEB_HOUBS_SHOBB (X) ; 


BID; 

/*  TBAISLATB  800 BLI  HOIKLOAD  IITO  BABFOHBB  BSQOXBBBBHTS  */ 

AVAILABILITT_CALC: 

IF  AIICBAFT.IIDZ  -=  3 
THEM  DO  K - 1 TO  22; 

■_SBA (K)  « TOTAL_TB_HOIKLOAD_SEA  (K)  / A VAILABI LITT_SBA ; 
fl_SHOBB(K)  =TOTAL_TH_HOBKLOAD_SHOBB (K) /AVAILABILITI_SHOBB; 
BHD; 
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1023. 

ELS E DO  K = 1 TO  22; 

1024. 

8 _S  B A ( K ) * TOTAL_TH_WOBKLOAD_SEA (K) /AVAIL ABI LIT! _ VP; 

1025. 

N_S  HOB  E ( A) =TOTAL_TH_BOBIUOAD_SHOBE (K) /Af AILABILITI_VP; 

1026. 

END; 

1027. 

IP  AIBCBAPT_I HDZ  >36  AI BCBAPT.INDI  -=6  6 AIBCBAPTIBDX  10 

1028. 

THEB  GO  TO  IBTBGEBIZE; 

1029. 

/• 

1030. 

SET  BIB I HUH  HANNING  PON  NBA PONS  LOADBBS  («C  230) 

1031. 

•/ 

1032. 

IP  H_SEA(18)  < <HINIH0H_HES(AIBC8APT_INDX) • 

1033. 

AIBCBAPT_PEH_SQOADfiOB)  THEN  DO; 

1034. 

H_SEA  (18)  = HINIHUH_HEN (AIBCBAPT_INDX) * 

1035. 

AIBCBAPT_PEB_SQU ADHON ; 

1036. 

BC230_PLAG_SEA  = M'; 

1037. 

END; 

1038. 

IP  H_SHOBE(18)  < (HINIHUH_HBN (AIBCB APT_IBDX)  • 

1039. 

AXBCBAPT_PEB_SOWAD»ON)  THEN  DO; 

1040. 

fl_SHOBB ( 18)  = HINinUH_HBN ( AIBCBA  PT_INDX)  * 

1041. 

AIBCB A PT_PEB_S QUAD BON; 

1042. 

HC230_PLAG_SHOBE  = *1'; 

1043. 

END; 

1044. 

/• 

BOONDOPP  HAN  PON  BB  TO  GBT  INTEGEB  HEN  */ 

1045. 

/• 

1046. 

AND  SET  PLOS  AND  HINDS  HOUBS 

1047. 

*/ 

1048. 

INTBGBHIZE: 

1049. 

DO  K = 1 TO  22; 

1050. 

IP  H_SEA (K)  > 10.5  THEB  DO; 

1051. 

H_SEA(K)  = TBUNC  (H_SBA(K) *.4999) ; 

1052. 

IP  AIBCBAPT_INDI  -«  3 THEN  DO; 

1053. 

HINDS_HOOBS_SEA (N) =TOTAL_TH_BOBKLOAD_SEA (K)  - 
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1054. 

1055. 

1056. 

1057. 

1058. 

1059. 

1060. 
1061. 
1062. 

1063. 

1064. 

1065. 

1066. 

1067. 

1068. 

1069. 

1070. 

1071. 

1072. 

1073. 

1074. 

1075. 

1076. 

1077. 

1078. 

1079. 

1080. 
1081. 
1082. 

1083. 

1084. 


(8_SEA  (K)  - .5)  *AVAILABILITT_SEA; 

PLOS_HO0BS_SEA (K)  = ( (8_5BA  (K)  ♦ . 5)  • 
AVAILABILITT_SEA)  - TOTAL_T8_BOBKLOAD_SEA (R) ; 

BED; 

ELSE  DO; 

HIMUS_HOOBS_SRA{K)=TOTAL_TH_«OBiaOAD_SBA (K)  - 
(8_SEA(K)  - .5) •AVAILABILITI.VP; 

PLOS_HOUBS_SEA (K)  = ( (8_SBA (K)  ♦ . 5)  • 

AVAIL ABILITT_VP)  = T0TAL_T8_«08KL0AD_SEA (K) ; 

BUD; 

BED; 

ELSE  DO; 

IJ  = 0; 

II  = 10; 

DO  I = 1 TO  9; 

II  = II  - 1; 

IP  IJ  = 0 THEM 

IP  H_SEA (K)  > BOOBDOPP_TABLB_SBA(II) 

THEM  DO; 

IP  AIBCBAPT_IMDZ  -»=  3 THEM  DO; 

HIBOS_HOOBS_SEA<K)  = (H_SEA(K)  - 
HOOMDOPP_TABLE_SEA (II) ) *AVAILABILITT_SBA ; 
PLOS_HOOBS_SEA (K) = (BODBDOPP_TABLE_SEA (II* 1) 

- fl_5EA(K))  * AfAILABILITTSEA; 

BHD; 

ELSE  DO; 

aiMOS_BOOBS_SEA(K)  = (B_SEA(K)  - 
ROOBDOFP_TABLB_SBA (II) ) *AVAILABILITT_VP; 
PLOS_HOOBS_SBA(K)=(BOO»DOPP_TABLE_SBA(II*1) 

- fl_SBA (R) ) * AVAILABILITT.VP; 

END; 
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1085. 

a_SBA(K)  » II  ♦ 1; 

1086. 

IJ  = 1; 

1087. 

BHD; 

1088. 

BHD; 

1089. 

IF  IJ  = 0 6 TOTAL_TH_VORKLOAD_SEA (K)  -*  0 THBH  DO; 

1090. 

H_SBA (K)  « 1; 

1091. 

IP  AIBCRAPT_IHDX  -»  3 THBH 

1092. 

PLOS_HOOBS_SBA (R)  = AT AILABILITT_SBA* 

1093. 

ROOHDOFF_TABLB_SBA ( 1 ) - TOTAL_TH_HOBICLOAD_SEA (K) 

1094. 

ELSE 

1095. 

PLOS_HOORS_SBA(K)  * AT AILABILITT_TP* 

1096. 

BOOHDOFF_TABLE_SBA (1)  - TOTAL_TH_HOBKLOAD_SEA (K) 

1097. 

EH  D; 

1098. 

EHD; 

1099. 

/* 

1100. 

BOUNDOPF  SHOBE  NAHPOHEB 

1101. 

*/ 

1 102. 

IF  fl_SHOBE (K)  > 10.5  THEN  DO; 

1103. 

H_SHORE(K)  = XBUHC (8_SHOHE (B)  ♦ .4999); 

1104. 

IF  AIBCBAFT_IHDX  3 THBH  DO; 

1105. 

aiHOS_HOOHS_SBOBE(K) =TOTAL_TB_HOBKLOA  D_SHOB  E (K)  - 

1106. 

(H_S80BE  (K)  - .5) •ATAILABILITT_SHOBE; 

1107. 

PLOS_HOUBS_SHOBE (K)  = ( (8_SHOBE  (R)  ♦ .5)* 

1108. 

ATAILABILITT_SBOBE)  - TOTAL_TB_HOBKLOA D_SHOB E (K) ; 

1109. 

EHD; 

1110. 

BLSB  DO; 

1111. 

aiHO  S_HOORS_SHOB  B (K) =TOTAL_TH_BOBKLOAD_SHOBB (B)  - 

1112. 

(B_SHOBB  (K)  - .5) *ATAILABILITI_TP; 

1113. 

PLOS_BODBS_SHORB (R) = ( (B_SBOBB (B)  ♦ .5)* 

1114. 

ATAILABILITT_TP)  - TOTAL_TH_HOBKLOAD_SHOBE <K) ; 

1115. 

BHD; 

\ 
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1116. 

END ; 

1117. 

ELSE  DO; 

1118. 

IJ  = 0; 

1119. 

II  = 10; 

1120. 

DO  I = 1 TO  9; 

1121. 

II  = II  - 1; 

1122. 

IF  IJ  = 0 THEM 

1123. 

IF  H_SHOBE(K)  > B0UMD0FF_TABLB_SH03E  (II) 

1124. 

THEM  DO; 

1125. 

IF  A I8CRAPT_IMDX  -=  3 THEM  DO; 

1126. 

BIMOS_HOOBS_SHORB(K)  = (H_SHOBE(K)  - 

1127. 

BOOHDOFF_TABLE_SHORB (II) ) * 

1128. 

AYAILABILITY_SHOBE; 

1129. 

PLUS_HOOBS_SHOHB(K)= 

1130. 

(ROOMDOFF_TABLE_SHORB (II* IJ 

1131. 

- H_SHORE (K) ) * AVAILABILITY _SHOBE; 

1132. 

END; 

1133. 

ELSE  DO; 

1134. 

HIMOS_HOUBS_SHOBE(K)  = (H_SHOBE (K)  - 

1135. 

ROD  MDOFP_TABLE_SHORE (II)  ) * 

1136. 

AVAILABILITT_VP; 

1137. 

PLOS_HOOBS_SHOBE (K) = 

1138. 

(800 MDOPP_TABLB_SHORE  (II ♦ 1 ) 

1139. 

- H_SHOBE  (K) ) • AVAILABILITI_VP; 

1140. 

END; 

1141. 

H_SBOBE(K)  = II  ♦ 1; 

1142. 

IJ  * 1; 

1143. 

END; 

1144. 

END; 

1145. 

IF  IJ  = 0 6 TOTAL_TH_NOBKLOAD_SHORE  (K)  -.=  0 THEM 

1146. 

H_SHOBE (K  > = 1; 

\ 


- <■  >A_  • 


i 
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1147. 

IP  AIBCBAPT_IHDX  -=  3 THE! 

1148. 

PLUS_HOU8S_SaORE(K)  = AVAILABILITY _SHOBB* 

1149. 

BOUNDOPF_TABLE_SHOBB(1)  - 

1150. 

TOTAL_TH_BOBKLOAO_SHOBE(K)  ; 

1151. 

ELSE 

1152. 

PLUS_HOOBS_SBOBS(K)  * AV AILABILITY_VP* 

1153. 

BOOBDOPP_TABL  B_SUOBE ( 1)  - 

1154. 

T0TAL_TH_B0BKL0AD_5H0BE (K)  ; 

1155. 

END; 

1156. 

END; 

1157. 

END; 

1158. 

IP  NC230_FLAG_SBA  = '1»  THEE  BIBOS_HOOHS_SEA ( 1 8)  = 0. 

0; 

1159. 

IP  HC230_PLAG_SHOBS  = '1*  THE*  BI»OS_HOOHS_SHOBE( 18) 

= 0.0; 

1160. 

A? AIL_CALC_CONT: 

1161. 

/• 

SET  A BINIBOa  OP  2 PLANE  CAPTAINS  PEB  AIBCBAPT  POB  SEA  SQUADRONS*/ 

1162. 

IP  B_SEA(21)  < (2. Q*AIBCB APT_PEB_SQO ADBON)  THE!  DO; 

1163. 

fl_SEA (21)  = (2. 0*AIBCB APT_PEB_SQDADBOB) ; 

1164. 

NINOS _HOOBS_SBA  (21)  = 0.0; 

1165. 

PLOS_HOOBS_SEA (21)  = (H_SEA (21) • AVAILABILITY,  SEA) 

- 

1166. 

TOTAL_TB_BOBKLOAD_SBA (21)  ; 

1167. 

END; 

1168. 

/• 

1169. 

CALL  AIBD  IP  TBE  BASE  CASE  OB  A NEB  BOBBER  OP  AIBCBAPT 

PEB 

1170. 

SQOADBOB 

1171. 

•/ 

1172. 

GBADE_LEVEL_CALC: 

1173. 

IP  (SENSITIVITT.FLAG  = 0 | 

1174. 

SENSITIVITY_CODB  = *1')  THEN  CALL  AIBD.CALCOLATIONS; 

1175. 

/• 

CALL  BOOTINB  TO  CALCOLATB  I LEVEL  RBQOIBBBBNTS 

•/ 

1176. 

/• 

DETEBBINE  PAYGBADES  POB  FIXED  POSITIONS  IN  NOBK  CENTERS 

1177. 

010,030,  AND  060 

*/ 

/ 


\ 
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GLC  PIKED: 


IP  AIBCBAPT_PBB_SQUADROM  < 18  THE!  1*1; 

ELSE  IP  AIBCiAPT_PER_SQOADBOM  < 24  THEE  1*2; 

ELSE  IP  AIBCBAPT.PEB.SQUADBOM  < 30  THEM  1*3; 
ELSE  I » 4; 

DO  K * 1.3,6; 

GBADE_LBVEL_SEA (K, 10)  « I; 

GBADE_LEVEL_SHOBE (K, 10)  * I; 

IP  II  * J THEM  DO; 

GBADE_LKV  EL_SEA (K, 5)  = I; 

GB ADE_LBTEL_SHOB  E (K , 5)  = I; 


IP  K = 6 THEM  DO; 

GRADE_LE7  EL_SEA (K, 6)  = I; 
GBADE_LE7EL_SHOBB (K, 6)  = I; 


/•  BHEM  CODING  PBIMT,  BEHEHBBB  THAT  I C 010  ABE  ALL  LT.  CHDBS. 


IP  AIBCBAPT_PER_SQOADRON  < 18  THEM  1=8; 

/*  DETBBHIMB  PEBSOMMEL  BEQOIBEHEMTS  AMD  PATGBADES  POB  040 
ELSE  IP  AIRCB APT_PEB_SQDADBOM  < 24  THEM  I = 10; 

ELSE  IP  AIBCBAPT_PBB_SQOADBOM  < 30  THEM  I = 12; 


ELSE  I = 14; 


K = 4; 


GfiADE_LEVEL_SEA(K, 10)  = I; 
G8ADE_LEVBL_SBOBE (K, 10)  = I; 
GBADB_LBTBL_SEA (K, 8)  = 1; 
GBADB_LET EL_S HOBE(K,8>  - 1; 
GBADE_LBT EL_SEA (K, 4)  = 1; 

GBA  DB_LBTEL_SHOBE (R ,4)  = 1; 
GBADE_LETBL_SEA (K.6)  =1-2; 


■I  inai  M 


r 

-130- 

1209. 

SB AO E_ LBV  EL_SHORE (K, 6)  =1-2; 

1210. 

/•  DETEBSI ME  PEBSOMM  EL  R EQUI BEBEMTS  POB  HOUR  CEMTEBS  100,200,  300  •/ 

1211. 

DO  K * 7,14,20; 

1 

1212. 

G BA  DS_LE V EL_S  E A (E , 1 0)  » 1; 

| 

1213. 

GBADE_LEVBL_SHOBE (K , 10)  ■ 1; 

j: 

1219. 

BBD; 

1 

1215. 

/*  DBTERRINE  P AYGBADES  POB  MOBK  CBMTBB  140  •/ 

tj 

1216. 

GBAOB_LBVBL_SBA (13,10)  - GRADB_LEV EL_SEA (13,10)  ♦ R_SEA(13); 

1217. 

GBADE_LEV  EL_SHORB (13,10) *GRADE_LEVEL_SHOBE ( 13, 10)  «B_SHORE ( 13)  ; 

1218. 

GBADE_LEV  EL_SEA (13,6)  * GBAD£_LEVEL_SEA (13,6)  ♦ B_SBA(1J); 

1219. 

GBADE_LE?EL_SHORE (1 3,6) =G8ADE_LEVBL_SHORE (13,6) ♦B_SHOBE ( 1 J) ; 

1220. 

GLC_V ABIABLB: 

j 

1221. 

/*  DBTEBBINE  PEBSOMMEL  BEQOIBER ENTS  POB  MOBK  CEBTBB  020  THAT 

> 

1222. 

ABE  A PONCTION  OP  THB  NUMBER  OP  SHIFTS  */ 

i 

1223. 

IP  NUB  BEB_OP_SHIPTS  = 1 THEM  DO; 

i 

1224. 

GBACE_LEV 8L_SEA  (2, 10)  = 2; 

1225. 

GBADE_LEVBL_SEA  (2,9)  = 1; 

1226. 

GRADE_LEVEL_SEA (2,7)  = 1; 

1227. 

GBADE_LBVEL_SHORE (2, 10)  * 2; 

1228. 

GBADE_LEVEL_SHOBE (2,9)  * 1; 

1229. 

GRADE_LEVEL_SHOBE (2, 7)  * 1; 

1230. 

END; 

1231. 

IP  MOBBEB_OP_SHIPTS  = 2 THEM  DO; 

1232. 

GB ADB_LBVBL_SEA (2,  10)  = 3; 

1233. 

GB ADE_LEVBL_SBA  (2,9)  = 1; 

1234. 

GBADE_LEVEL_SEA (2,8)  = 1; 

1235. 

GBADE_LEVEL_SEA  (2,7)  = 1; 

1236. 

GB ADB_LEVBL_SHOBB (2,10)  = 3; 

1237. 

GRADE_LEVBL_SHORE (2,9)  = 1; 

1238. 

GBADE_LETEL_SHOBE  (2,8)  = 1; 

1239. 

GBADE_LEVBL_SHOBE(2,7)  = 1; 

\ 

It  - - - \ . . - 7 a 

■■■■■■■■■ 

1240. 

1241. 

1242. 

1243. 

1244. 

1245. 

1246. 

1247. 

1248. 

1249. 

1250. 

1251. 

1252. 

1253. 

1254. 

1255. 

1256. 

1257. 

1258. 

1259. 

1260. 
1261. 
1262. 

1263. 

1264. 

1265. 

1266. 

1267. 

1268. 

1269. 

1270. 


END; 

If  NUMBEB.O f .SHIFTS  * 3 THEN  DO; 

GRADE.LEV  BL.SEA (2* 10)  * 4; 

GRADE. LEY BL.SEA (2,9)  « 1; 

GRADE.LEVEL.SEA (2,8)  « 1; 

GRADE.LEVEL.SEA  (2,7)  = 2; 

GRADE.LKVEL.SHORE (2, 10)  * 4; 

GR A DE.LSV  EL.SHORE (2,9)  = 1; 

GBADE_LEVEL_SHOBE (2,8)  = 1; 

GBADB.LEVEL.SHORE (2,7)  = 2; 

ENO; 

/*  DETERMINE  TOTAL  PERSONNEL  AND  PATGSADES  FOR  WORK  CENTER  020  */ 

GRADE.LEVEL.SEA (2,10)  = GRADE.LEVEL.SEA (2, 10)  ♦M_SEA(2); 

GRADE_LEV EL_S HORE (2, 10) =GRADE_LEV EL_SHORE (2, 10) ♦M.SHOBE  (2)  ; 
DO  I = 1 TO  9; 

GBADE_LEVEL_SEA  (2, I)  = GBADB_LEVEL_SEA (2, I)  ♦ 

PAYGRADE. MATRIX 020  (I,H_SEA(2) ) ; 
GRADE.LEV  EL_SHORE(2,I) =GRADE_LEV EL_SHOBE(2, 1)  ♦ 

PAYGRADE. MAT RIX020  (I,M_SHORE  (2) ) ; 

END; 

/•  DETERMINE  PAYGRADES  FOR  WORK  CENTER  050  */ 

G8ADB_LEVEL_3EA  (5,  10)  = H_SEA  (5)  ; 

GRAD E_ LEY EL_S HORE (5, 10)  = H_SHORB  (5) ; 

DO  J = 1 TO  9; 

GRADE.LEVEL.SEA  (5, J)  « PAIGR ADE_HATHIX050  ( J , M_SEA (5) ) ; 

GR A DE_LEYEL_SaORE (5, J) =P AYGB ADE.M ATRIX050  (J,H_SHORE  (5) ) ; 
END; 

/•  SET  TBOO BLES HOOTER  REQUIREMENTS  = 5 FOB  VA.VF.YS  AT  SEA  •/ 

IF  AIECRAFT.INDX  < 5 & AIECRAFT.INDX  -*3 
THEN  DO; 

GRADE.LEVEL.SEA (22, 10)  = 5; 
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1271. 

1272. 

1273. 

1274. 

1275. 

1276. 

1277. 

1278. 

1279. 

1280. 
1281. 
128 2. 

1283. 

1284. 

1285. 

1286. 

1287. 

1288. 

1289. 

1290. 

1291. 

1292. 

1293. 

1294. 

1295. 

1296. 

1297. 

1298. 

1299. 

1300. 

1301. 


GBADB_LBTBL_SBA(22,6)  = 1; 

GHADE_LBVBL_SEA (22,5)  = 4; 

BBO; 

/*  DBTEBHIN B PAIGBADE  BBQOIBBBBHTS  POB  PBODUCTIOM  BOBK  CEBTBBS  */ 
DO  K = 8,9, 10, 11, 12, 15, 16, 17; 

IP  TOTAL_TB_HOBKLOAD_SEA(K)  -.=  0 THBN  DO; 

GBADB_LEVEL_SEA (K, 10)  =B_SEA(5); 

GB ADE_LEVEL_S80BB (K, 10)  « B_SHOBE (K) ; 

DO  J = 1 TO  9; 

GHADB_LE»EL_SEA(*,J)  « PBODOCTIOH _B ATBII (J, B_SBA (K) ) ; 
GBADE^LEf BL_SHOBB (K , J) 3 P BOD OCT 10 M_H AT RI X (J,H_SHOBE(K)  ) ; 
BHD; 

BBD; 

BHD; 

IP  AIBCBAPT_IHDX  = 8 
THE*  DO; 

GBADB_LEVEL_SEA(19, 10)  » B_SEA  (19) ; 

GBADB_LBTEL_SHOBB ( 19, 10)  * H_SHOBB(19); 

DO  J > 1 TO  9; 

GBADB_LETBL_SBA ( 19, J)  « PBODOCTIOH_BATBIX  (J,B_SBA  (19) ) ; 
GB ADE_LEVEL_SBOBB (19, J) *PHODUCTIOH_BATHII(J,H_SHOHB ( 19) ) 
BHD; 

BHD; 

ELSE  DO; 

PLOS_HOOBS_SEA (19)  = 0.0; 

PL0S_HO0BS_SBO8B(19)  * 0.0; 

BHD; 

/*  DETBBBIHE  PAT6BADB  BBQOIBBBBHTS  POB  PLAHE  CAPTAIHS  •/ 

GBADB_LBVBL_SBA  (21, 10)  = B_SBA(21); 

GBADB_LBTEL_SBOBB  (21,10)  = 

DO  J * 1 TO  9; 


H_SHOBB (21) 
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1302. 

1303. 

1304. 

1305. 

1306. 

1307. 

1308. 

1309. 

1310. 

1311. 

1312. 

1313. 

1314. 

1315. 

1316. 

1317. 

1318. 

1319. 

1320. 

1321. 

1322. 

1323. 

1324. 

1325. 

1326. 

1327. 

1328. 

1329. 

1330. 

1331. 

1332. 


GB ADE_LBV EL_SEA  (2  1 , J)  =LINB_DITISION_H ATBI X (J,H_SBA  (21)  ) ; 
GBADE_LEV8L_SHOBE<21 . J) =LINB_DIT ISION_N ATRI I (J . 8_SHOBE  (21) ) 
END; 

/*  DETBBHINE  PATGBADE  BEQUIBBHENTS  FOR  KOHL  CENTBB  230  •/ 

GLC_CO»T: 

GBAOB_LET  EL_SEA (18,10)  = H_SEA(18); 

GBADE_LBVBL_SHOBE (18, 10)  = H_SBOBE(18); 

DO  J = 1 TO  9; 

GB ADE_LEVEL_SEA (18, J)  - PAIGBADE_NATBIX230 (J,H_SEA ( 18) ) ; 

GB ADE_LEf BL_SHOBB ( 18, J)  = 

PATGBADE_HATBIX230 (J, H.SHOBB (18) ) ; 

BID; 

/«  DETBBNINE  PATGBADE  BEQOIBBHEHTS  FOB  DIVISION  NOB K CENTERS 

(NC  100,200,300)  EQOAL  TO  ONB  PATGBADE  GBEATEB  THAN  SOBOBDINATE 
NOBK  CENTERS  HITE  AN  E-8  AT  HOST  */ 

I SN  B_SEA  = 0; 

ISNB_SHOBE  = 0; 

DO  K = 8 TO  13; 

DO  J = 1 TO  8; 

IF  GRADE_LETBL_SBA(K,J)  > 0 6 J > ISNB.SEA 
THBN  ISNR_SEA  = J; 

IF  GBADE_LET BL_SROBE(K, J)  > 0 6 J > ISNB.SHOBB 
THEN  ISNB_SHOBE  = J; 

END; 

BND ; 

ISNB_SEA  = ISNR_SEA  ♦ 1; 

ISNB_SHOBE  = ISNB_SHOBB  ♦ 1; 

IF  ISNB.SEA  > 8 THEN  ISNN_SEA  « 8; 

IF  ISN1_S80RE  > 8 THEN  ISHH.SHOHB  - 8; 

IF  ISNB.SBA  1 THBH  GBADB_LEYBL_SEA  (7,ISNR_SBA)  * 

GB ADB_LETEL_SEA (7, ISNR_SEA)  ♦ 1; 


\ 
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Mil. 

ir  IS N R_S HOBS  -»*=  1 THEM 

1334. 

GBADE_LBVE£._SHOBB<7,  IS»B_SHOBB)  = 

1 3 35. 

GRAD E_ LETS L_SHORE(7,IS*8_SH08B)  ♦ 1; 

1336. 

IS*  B_S  BA  = 0; 

13  37. 

IS»B_SHOBE  = 0;  ' 

1338. 

DO  K = 15  TO  19; 

1339. 

DO  J » 1 TO  8; 

1340. 

IT  GBADE_LET ELSBA  (K,  J)  > 0 E J > ISM.SEA 

1341. 

THE*  IS*B_SEA  = J; 

1342. 

IT  GRADE_LBTEL_SH0BE(B,J1  > 0 6 J > ISBB_SBOBB 

1343. 

THE*  IS*B_SHORE  * J ; 

1344. 

E*D; 

1345. 

END; 

1346. 

ISB8_SEA  = IS*B_SEA  « 1; 

1347. 

IS*B_SHOBE  = ISBB_SHOBB  ♦ 1; 

1348. 

IP  IS*B_ SEA  > 8 THE*  ISHB.SEA  = 8; 

1349. 

IP  ISHB.SHOBE  > 8 THE*  IS*B_SHORB  « 8; 

1350. 

ir  IS*B_SEA  1 THE*  GBADE.LEf  EL_SE A ( 14, 1 S*8_S8A) 

1351. 

GBADE_LE¥ EL_SEA ( 1 4 , ISM B_SEA)  * 1; 

1352. 

IP  ISBB.SHOBB  — 1 THE* 

1353. 

GB  A DK_LE7EL_SHO  B B ( 1 4 , 1 SH B_SHOB  E)  = 

1354. 

GR A DE_LEV  EL_SBORE ( 1 4, ISNB_SHOBE)  ♦ 1; 

1355. 

IS*8_SEA  = 0; 

1356. 

ISNB_SHOBE  = 0; 

1357. 

DO  K = 21  TO  22; 

1358. 

DO  J * 1 TO  8; 

1359. 

IP  GRADE_LK?BL_SEX{K,J)  > 0 6 J > IS*B_SEA 

1360. 

THE*  IS*B_SEA  * J; 

1361. 

IP  GBADB_LB» EL_SHOBB (R , J)  > 0 6 J > ISNB_SHOBE 

1362. 

THE*  ISHB_SHOBB  * J; 

1363. 

E*D; 
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1369. 

1370. 


1374. 


1378. 


1387. 


I SHB.SBA  - ISHH.SBA  ♦ 1; 

ISNB_SHOBE  ■ ISBB.SHOBB  ♦ 1; 

If  ISHB.SEA  > 8 THE*  ISHB.SEA  « 8; 

IP  ISBB.SHOBB  > 8 THEM  ISBB.SHOBB  ■ 8; 

IP  ISHB.SEA  -«  1 THE!  GBADB.LETEL.SEA (20, ISBB_S8A)  = 

GB ADE.LEVEL.SBA (20 , ISHB.SEA)  ♦ 1; 

IP  ISBB.SHOBB  -»  1 THEB 

GB ADE.LETEL.SHOBE (20 , ISBB.SHOBB)  « 

GRADE. LEV EL.SHOBB (20, ISBB.SHOBB)  ♦ 1; 

/•  TOTAL  THE  PEBSOBBEL  BEQUIBEHBHTS  IB  THE  OBGAHIZATIOHAL 
PATGBADE  HATBII  */ 

TOT AL.PEBSOBHEL.SE A * 0.0; 

TOTAL.PEBSOHB  EL.SHOBB  * 0.0; 

DO  I =»  1 TO  22; 

TOT AL.PEBSOBHEL.SE A = TOTAL.PEBSOBBBL.SBA  ♦ 
GRADE.LEVEL.SE A (I, 10) ; 

TOT AL.PBBS OH B EL.SHOBB  = TOTAL.PEBSOHB EL.SHOBB  ♦ 

GB ADE.LETEL.SHOBE (I, 10) ; 

DO  J * 1 TO  9; 

GBADE.LBTEL.SEA (23, J)  * GBADB.LEVEL.SEA (23, J)  * 
GBADE.LBV KL.SEA  (I, J) ; 

GBADE.LEV EL.SHOBB (23, J)  = GBADB.LEVEL.SHOBE  (23, J)  ♦ 
GB ADE.LETEL.SHOBE (I, J) ; 


CALL  THE  OUTPUT  BOOTIBES  < 

IP  SBHSITITITT.PLAG  * 1 THEB  CALL  PAGEOBE.BBPOBT; 
CALL  PA6ETI0. BEPOBT ; 

CALL  PA6BTHO.DETAIL.BEPOBT; 

CALL  PA6ETH0.SPBEAD.BEP0BT; 
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call  PAGBTHBEB_EBPORT; 

CALL  PAGBFOOR_REPORT; 

CALL  PAGBFI¥E_ REPORT; 

PBRPORH  THE  SEESITITITI  COHPOTATIOBS  IP  REQOESTBD  •/ 
READ  PILE (I HPILE)  IBTO (SEHSITITITT_IHPOT) ; 

IP  S¥1  = • • TEEN  ST1  = *0'; 

IP  ST2  = • ' THEE  ST2  = ‘O'; 

SENSITI¥ITI_TAHJB1  * ST1 ; 

SENSITI VITY_VAL0E2  = Sf2; 

IP  SBESITI VITT_CODE  = *Z'  THEE  GO  TO  EEDROE ; 

CLOSE  PILE (RHIHPTS) ; 

OPEN  PILB  (RHIHPTS)  RECORD  IRPOT; 

BH_HA  BKEH  = • 1 • ; 

SENSITITITY_FLAG  = 1; 


SBESITIVITI  OE  EDHBBR  OP  AIRCRAPT  PER  SQOADROH 


IP  SEHSITI¥ITI_CODE  = »1*  THEE  DO; 

P ACTOR  1 = SEESITI YITT_VALDE1  / AIBCB AFT_PBB_SQU A DRON ; 
FACTOB2  = PACTOB1 ; 

FACTORJ  = FACTOR!; 

CALL  RESET; 

AIRCRAPT_PBB_SQOADBOE  » SBHSITITITI.V ALOE  1 ; 

TOT AL_ A I BCR A FT  * AIBCB APT_PBR_SQO AD BOB  * 


BOHBER_OP_S QUAD ROBS; 


GO  TO  EETHILEYEL; 


SEESITITITI  OH  SORTIE  BATBS 


IF  SEHSITITITT.CODE  = '2*  THBE  DO; 
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1426. 

1427. 

1428. 

1429. 
14  JO. 
1 4 J 1 . 

1432. 

1433. 

1434. 

1435. 

1436. 

1437. 

1438. 

1439. 

1440. 

1441. 

1442. 

1443. 

1444. 

1445. 

1446. 

1447. 

1448. 

1449. 

1450. 

1451. 

1452. 

1453. 

1454. 

1455. 


FACTOR  1 = 0.0; 

PACT0B2  * SEHSITIVITY.V ALQE1/S0HTIB_HATE_SEA; 

PACX0B3  = SB HSITI V IT Y_VALO  E2/S0HTIE_RATE_SH0BE ; 

CALL  BBSBT; 

SOBTI E_B AT B_SBA  - SEHSITIVITY.VALOBI; 
SOBTIB_RATE_SHOBB  * SEHSITI?ITY_?ALUE2; 

GO  TO  BBAD_HEXT_8a_IHP0T; 

END; 

/* 

SEHSITI VITY  OH  80HBEB  OF  FLYIHG  DATS 

IF  SBHSITIYITY.CODB  = *3*  TUBS  DO; 

FACTOR 1 = 0.0; 

FACTOB2  = SEHSITI VITY_V ALOE  1/PLY IHG_DAYS_HBEK_SEA ; 
FACTOB3  = SEHSITI VI TY_VALOB2/PLY IHG_DAYS_HEEK _SHO BE; 
CALL  BESET; 

FLYIBG_DAYS_BEEK_SBA  = SBHSITI YITY_YALOE1 ; 
PLTIHG_DAYS_HEEK_SI10RE  = SBBSITIfITY_»ALUE2 ; 

GO  TO  BBAD_HEXT_BH^IHPUT; 

BHD; 

/* 

SEHSITI YITY  OH  BCH  DATA 


•/ 


V 


IP  SBHSITIVITY_CODE  » THBH  DO; 

IF  SEHSITIVITY.VALOBI  » 1 | SEHSITI f IT Y_V ALOE  1 * 3 THEM 
DO  I * 1 TO  23; 

BAH_Pa_BOBKLOAD_SBA(I)  - RAB_PB_HORKLOAD_SEA (I)  • 

SBHSITI TIT Y_TALDE2 ; 

RAB.Pfl.HORELOAD.S BORE (I)  » RAI_PB_BORKLOAD_SHOBB (I)  * 

SBHSITI VITY_VAL0B2; 


1456 


EHD 
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1457. 

1458. 

1459. 

1460. 

1461. 

1462. 
146). 
1464. 


1465. 


[ 

t-J 

■ 


1466. 

1467. 

1468. 

1469. 

1470. 


IF  SBHSITITITY_HAL0E1  - 2 1 SB8SITI  H ITY.HA  LOB  I » 3 till 
OO  I - 1 TO  23; 

BAM.Ca.VOBELOAD.SBMI)  » RAB_CB_OOHKLOAD_SBA  (I)  • 

siBSzrxrzrr_r«L9B2; 

RAH_Ca_BORKLOAD_SHORE(I)  - BAO_CB_BORKLOAD_SHORB (I)  • 

SBHSITI t ITY_H  ALO  B2 ; 

CRD; 

DO  I * 1 TO  23; 

OTBBR_BOORS_SBA(Z)  » 0.0; 

OTBBR_BOORS_SBORB(X)  - 0.0; 

DO  J = 1 TO  10; 

GRADE_LEHEL_SBA(I,J)  * 0.0; 

GRADE_LBTEL_SHORE(I,J)  3 0.0; 

END; 


i 

I 


1471. 

1472. 

1473. 

1474. 

1475. 

1476. 

1477. 

1478. 

1479. 

1480. 

1481. 

1482. 

1483. 

1484. 

1485. 

1486. 

1487. 


BHD; 

GO  TO  EBTRTLBfEL; 

BHD; 

XHPOT_ERROB_EIZT; 

POT  PILE (OOTPZLB)  BDZT ( 

• ERROR  — AA  ZHPOT  XS  HOT  TB.PH  OR  CB  •) 

(SKIP, COL  (5) , A)  ; 

GO  TO  BHDROH; 

I H POT_BRROB_EI XT2 : 

POT  PILE (OOTPZLB)  EDIT (•  ERROR  — III  CODE  IS  HOT  HALID  ') 
(SKIP, COL  (5) , A) ; 

GO  TO  KHDROH; 

IHPOT_EHROB_BIIT3: 

POT  PILE (OOTPXLE)  EDIT ( 

• ERROR  --  AIRCRAFT  TYPE  IS  HOT  TALID  •) 

(SKIP, COL  (5) , A) ; 

GO  TO  BHDROH; 


/ 
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14  88. 

/• 

BOOTHS 

TO  ALLOCATE  TB  BOOBS  TO  CB/PB  HOUBS 

1489. 

CUTS 

_CALC: 

PBOC; 

1490. 

IP  AIBCBAPT_HDI  > 2 TBBI  GO  TO  CITB_OTBEB 

1491. 

PB_PEBCBIT  * 1.0  - CB_PBCT_TAP  (IMDI) ; 

1492. 

CB_PEBCEHT  = CB_PBCT_TAP (IMDI) ; 

1493. 

GO  TO  CBTB.COIT; 

1494. 

CWTS_OTBRB: 

1495. 

PB_PBB,  BIT  = 1.0  - CB_PBCT_OTBEB (IIDX) ; 

1496. 

Cfl_PEBC EMT  = CB_PBCT_OTHBB  (IH DX)  ; 

1497. 

CBTB.COIT: 

1498. 

RAI_PB_BOHKLOAD_SEA (IMDI)  = PB_PBBCBMT  * 

1499. 

BAW_TB_BOBKLOAD_SBA(IIDX)  ♦ 

1500. 

8AI_PB_IOBKLOAD_SEA (IIDX)  ; 

1501. 

BAB_PB_IOBELOAD_SBOBB (IIDX)  = PB.PEBCEMT  * 

1502. 

BAI_TB_IOBXLOAD_SHOBE (IIDX)  ♦ 

1503. 

RAH_Pfl_HOBKLOAD_SBOBB (IIDX)  ; 

1504. 

BAB_Cfl_HOBKLOAD_SEA (IIDX)  = CB.PBBCEIT  * 

1505. 

BAB_TB_IOBKLOAD_SEA (IIDX)  * 

1506. 

(1.0  * BAR  B_BB  ADI_P0TAB AI_PACTOB  ♦ 

1507. 

PBODOCTITITT_ALLOBA ICB_PACTOB)  ♦ 

1508. 

BAI_CB_B08KL0AD_SBA (IIDX)  ; 

1509. 

BAB_CB_BOBKLOAD_SHOBE (IIDX)  = CB_PEBCBIT  * 

1510. 

BA V_TB_BOBKLOA D_SHOBE (IIDX)  * 

1511. 

(1.0  ♦ BAXB_BB ADT_P0TAIAT_FACTOB  ♦ 

1512. 

PIODOCTITITI_ALLOIAICE_PACTOB)  ♦ 

1513. 

BAI_CB_IOBKLOAD_SBOBB (IIDX)  ; 

1514. 

BID; 

1515. 

/• 

IlTBBBBDI ATE  BAI ITBHAHC2  BBQOIBBBBITS  BOOTIIB 

1516. 

AIBD_CALCOLATIOIS:  PBOC; 

1517. 

/* 

IIPOT  1 

V 

1518. 

AIBD_PLAG  * • 1* ; 

1519 


1520. 

1521. 

1522. 

1523. 

1524. 

1525. 

1526. 

1527. 

1528. 

1529. 

1530. 

1531. 

1532. 

1533. 

1534. 

1535. 

1536. 

1537. 

1538. 

1539. 

1540. 

1541. 

1542. 

1543. 

1544. 

1545. 

1546. 

1547. 

1548. 


IP  SENSITIVITY_PLAG  * 0 THE!  DO; 

RBAD  PILE ( IK  PILE)  INTO  (INPOT_ABRAI2)  ; 

I_LE?EL_H ANHOUBS_HEBK  =*  IA.DATA22; 

IP  IA_DATA23  * • • THEM  IA.DATA23  » *0000'; 

MOHBBB_OP_A7IOMICS_SKILLS_BBQ  *=  I A_DATA23 ; 

END; 

TOT AL_I_L£7EL_HANHOOBS  = I_LE7EL_8ANHOOBS_HEEK  * 

AIBCB A PT_PBB_ SQUAD ROM ; 

/•  CALCULATE  TBNPOBARY  ASSIGNED  DUTY  I LE7BL  PERSONNEL  */ 

DO  I = 1 TO  5; 

I_  LE7 EL_HA NPON  EB_S  EA (I)  = <TOTAL_I_LEYEL_HANHOURS  * 
I_LE7BL_SPBEAD (I, AIBCRAPT_INDX)  ♦ 
SUPPOBT_EQUIPHENT_HOORS_SEA(I)  ♦ 

AIBCBAFT_PEN_SQUADHON)  / I_LE7EL_A7AILABILITI_SEA ; 
I_LE7BL_HANPOHEB_SEA (I)  = I_LEYEL_NANPOMBB_SBA (I)  ♦ 

( I_LE?  EL_AS_COEFP (I)  • I_LE72L_HANPOBEB_SBA (I) ) / 
I_LE7EL_A7 AILABILITT_SEA ; 

I_LE7BL_BANPOHBB_SHOBE (I)  = (TOTAL_I_LE7EL_BANHOUBS  • 
I_LB7EL_SPBEAD (I, AIBCB APT_INDI)  ♦ 
SUPPOBT_EQUIPHENT_HODRS_SHOHE (I)  * 
AIRCBAFT_PEB_SQUADRON)  / I_LEVEL_A7AILABILITT_SHOBE; 
I_LB7  EL_HA  NPON  BR_SHORB (I)  = I_LE7EL_HANPOHEB_SHOBE (I)  ♦ 

(I_LEYBL_AS_COEPF (I)  * I_LE7EL_flANP0NER_SH0BE (I) ) / 
I_LE7EL_A7 AILABILITT_SHORB; 

END; 

AC_BOOND: 

DO  K = 1 TO  5; 

CALL  INTEGBB (I_LB7BL_N ANPOBEB_SBA (K) , TBBPHEN) ; 

I_ LEY EL_flA NPON EB_SB A (K)  = TEHPHEN ; 

CALL  INTEGER (I_LB7EL_8  ANPOBBB_SHOBE (K) , TEHPHEN)  ; 
I_LB7BL_BANPOBBR_SHORE (K)  = TBEPNBN; 


1549 
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1550. 

END; 

1551. 

IF  I_LBVEL_NANPONEH_SEA (3)  < NOBBRB_OF_AVIOBICS_SKILLS_ 

1552. 

THEN  I_LETBL_NANPOH  EB_SEA (3)  = 

1553. 

NONBEH_OF_A V IONICS_SKILLS_BEQ ; 

1554. 

IF  I_LE»EL_HANP0HEB_SH0HE(3)  < 

1555. 

NOHBEB_OF_A»lONICS_SKILLS_HBQ  THEN 

1556. 

I_LEVEL_HANP0NEB_SH0BE(3)  = 

1557. 

NOHBEB_OF_A?IONICS_SKILLS_BEQ; 

1558. 

DO  I = 1 TO  5; 

1559. 

TOT AL_FLEBT_I_LEVBL_SEA(I)  = I_LEVEL_BANPOHEB_SEA (I)  •» 

1560. 

NU8BEB_OF_SQO ADRONS ; 

1561. 

r0TAL_FLEET_I_LE*EL_SH0BE(I)  = 

1562. 

I_LEVEL_HANPOBER_SHOBE(I)  * NOHi)EB_Of_SQOADBONS ; 

1563. 

END; 

1564. 

/*  INPUT  2 */ 

1565. 

/* 

CALCULATE  ANT  CHANGES  IN  THE  PEHN ANBNT  AIHD  CADRE 

1566. 

DOE  TO  ADDING  THIS  AIHC8APT  */ 

1567. 

AC 

_INP0T2: 

1568. 

IF  SENSITI VITY_PLAG  = 0 THEN  DO; 

1569. 

BEAD  FILE (INFILE)  INTO (INP0T_ABHAT2) ; 

1570. 

NOHBBB_SQ_ON_SBA  = IA_DATA22; 

1571. 

NONBER_AC_ON_SBA  = IA_DATA23 ; 

1572. 

N OB BEB_OF_NAS_ DEPLOYED  = I A_DAT A24  ; 

1573. 

DO  I = 1 TO  NOHBEB_OF_NAS_DEPLOYED; 

1574. 

READ  FILE(IBFILE)  INTO (INPOT.ARB AY2) ; 

1575. 

SHOBB_AC_BBFOBB (I)  = IA_DATA22; 

1576. 

S HO BB_SQ_ ADDED (I)  = IA_DATA23; 

1577. 

END; 

1578. 

END; 

1579. 

/• 

1580. 

AIHD 

CADBE  ON  CARBIEB  EITHOOT  THIS  AIBCBAFT 

J 


w. 


\ 


1582. 

1583. 

1584. 

1585. 

1586. 

1587. 

1588. 

1589. 

1590. 

1591. 

1592. 

1593. 

1594. 

1595. 

1596. 

1597. 

1598. 

1599. 

1600. 
1601. 
1602. 

1603. 

1604. 

1605. 

1606. 

1607. 

1608. 

1609. 

1610. 


BEPOBB_SEA_X  = BUBBEB_AC_OB_SEA  - (N09BEB_SQ_OB_SEA  * 

A I BCR  AFT_PEB_SQU A DHQB)  ; 

CALL  AIND_ FIXED (BEFOHE_SEA_XfSBA_HEH_XB, 

I_LE? BL_AV  AILABILITI_SBA)  ; 

SBA_HOOHS_XB  = (4.05029  • BEFOBE_SEA_X)  / 

I_LBTBL_AV AILABILITY_SBA; 

CALL  IHTE6BB(SEA_UODBS_XB,SBA_flEN_IB(6) ) ; 

SE A_RODBS_XB  = (GSE_BOOBS_PER_AC_SEA*BBFOBE_SEA_X)  / 
I_LBVBL_Af AILABILITT_SEA; 

CALL  INTEGER (SEA_BOORS_XB, SBA_BEH_XB  (7) 1 ; 

3EA_HOOBS_XB  = (46.25  ♦ 5. 086 1 *SEA_BEN_XB (7) ) 

/I_LB»EL_AVAILABILITT_SEA  ♦ SEA_BOOBS_XB 

CALL  I NTEGEB (SBA_HOUBS_XB, S EA_NBB_Xfl  (7) ) ; 

/* 

AIBD  CADBE  OB  CABBIEB  BITS  ALL  AIBCBAFT 

AFTEB_SEA_X  = !OSBEB_AC_OH_SEA; 

CALL  A IB D^ FIXED (APT8B_SEA_X, SBA_BEN_X A, 

I_LETBL_AY  AIL ABILITI_SEA)  ; 

SEA_HOOBS_XA  = (4.05029  * APTEB_SEA_X)  / 

I_LEY EL_AY AIL ABILITIES BA ; 

CALL  IITBGEB(SBA_BOOBS_XA,SBA_BBN_XA(6)) ; 

SEA_HOOBS_XA  = (GSB_BOOBS_PBB_AC_SBA*AFTBB_SEA_X)  / 
I_LB¥EL_Af AILABILITT_SBA; 

CALL  IHTEGBB(SBA_HOOBS_XA,SBA_BEN_IA(7) ) ; 

SBA_BOOBS_IA  = (46.25  ♦ 5. 086 1 *SEA_BBi_XA  (7) ) 

/I_LEYEL_Af AILABILITI_SEA  ♦ SBA_BOOBS_XA 

CALL  TETBCBB (SEA_BOOBS_X A,SBA_BBN_X A (7)  ) ; 


1611 
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1612. 

1613. 

1614. 

1615. 

1616. 

1617. 

1618. 

1619. 

1620. 
1621. 
1622. 

1623. 

1624. 
162%. 
1626. 

1627. 

1628. 

1629. 

1630. 

1631. 

1632. 

1633. 

1634. 

1635. 

1636. 

1637. 

1638. 

1639. 

1640. 

1641. 

1642. 


/• 


*/ 

AIHD_CADSE_ADDED_SEA  = 0.0; 

DO  I = 1 TO  7; 

AIND_CAD8B_ADDED_SEA  = AI B 0_C ADB E_ ADDED.SE A ♦ 

(SEA_8BI_XA (I)  - S BA_BEI_XB (I)  ) ; 

END; 


AIBD  CADBE  AT  IAS  BBFOBB  AIBCB AFT  IS  ADDED 


*/ 

DO  I = 1 TO  IOBBEB_OF_BAS_DEPLOIBD; 

BEFOBE_SBORE_Z  (I)  = SHOBE_ AC_BEFOHE (I)  ; 

TOT_SHOBE_ZA  (I)  = 0.0; 

TOT_SHOBE_XB(I)  = 0.0; 

BID; 

DO  IA  = 1 TO  IOBBBB_OF_IAS_DEPLOIBD; 

CALL  AIBD_PIZED (BEFOBE_SHOHE_Z  (IA)  ,SUOBE_BEIi_ZB, 

I_LB¥EL_AT  AILABILITI_SHOBE)  ; 

SHOBE_HOOBS_ZB (6)  =(87.666  ♦ .37487  • BBFOB E_SHOBE_Z (IA)  ♦ 
.0022157* (BEFOBE_SHOBB_X(IA) *BBFOBE_SHOBE_X (I A)  ) ) / 
I_LBTBL_AFAILABILITr_SHOBB; 

CALL  IITBGEB (SBOBE_HOOBS_ZB (6) ,SHOBE_BE*_IB (6) ) ; 
SHORE_BOOBS_IB(7)  = (GSE_HODBS_PBB_AC_SHOBB*BEFOBE_SHOBE_X (I  A) ) 
/ I_LETBL_ATAILABILITY_SHOBE; 

CALL  IBTBGBB (SBOBB_BOOBS_IB (7) , SBOBB_BEM_XB (7)  ) ; 
SHOBB_EOOBS_XB(7)  =(46.25  «•  5. 086 1 *SBOB*_8E«_IB (7) ) 

/ I_LBTBL_ATAILABILITT_SBOBB  ♦ SHOBE_HOOBS_XB (7) ; 
CALL  IBTBGEB (SHOBE_HOOBS_XB (7) , SHORE_BEI_IB (7) ) ; 

DO  J = 1 TO  7; 

TQT_SHOBE_IB  (I A)  = TOT_SBOBE_Z B (IA)  ♦ SBOBB_BE«_XB (J)  ; 

BID; 

BID; 


1643. 

1644. 

1645. 

1646. 

1647. 

1648. 

1649. 

1650. 

1651. 

1652. 

1653. 

1654. 

1655. 

1656. 

1657. 

1658. 

1659. 

1660. 
1661. 
1662. 

1663. 

1664. 

1665. 

1666. 

1667. 

1668. 

1669. 

1670. 

1671. 

1672. 

1673. 


/* 

AISO  CADBE  AT  NAS  AFTER  AIBCHAPT  IS  ADDED 

*/ 

DO  IA  = 1 TO  NUBBEB_OF_NAS_DEPLOYED ; 

A FTEfl_SHOB  E_X (I A)  = SHOB E_ AC_BEPOB E (I A ) ♦ 
SUORE_Su_ADDED(IA) * AIRCBAFT_PEB_SQUADRON ; 

END; 

DO  IA  = 1 TO  NOBBER_Or_NAS_DEPLOIED; 

CALL  AISD_PIXED ( APTEB_SHOBE_I (IA) , SHORB_BEN_XA( 
I_LEVEL_A¥AILABILITT_SHOBE) ; 

SdOBE_HOUHS_XA(6)  =(87.666  ♦ .37487  • AFTEB_SHOBB_I (I A)  ♦ 
•0022157*(AFTEB_SBOBE_X (IA) * AFT ER_SHOR E_I (IA) ) ) / 
I_LB»EL_AVAILABILITY_SHOBE; 

CALL  I NT  EC  BB ( S HORE_HOURS_X  A (6)  , SHOR B_HEN_XA  (6) ) ; 
SHOBE_HOUBS_XA  (7)  = (GS E_HOU RS_PBB_AC_SHOR E* AFT ER_SHOR E_X  (I A) ) 
/ I_LEVEL_AVAILABILITI_SHOBE; 

CALL  INTEGER (SH08E_H0DRS_XA (7)  ,SHORE_BEN_XA  (7) ) ; 
SHOHE_HODBS_XA (7)  =(46.25  ♦ 5. 086 1 *SHOB E_N EN_X A (7) ) 

/ I_LEVEL_A»AILABILITY_SHOBB  ♦ SHORE_HOOBS_X A (7) ; 
CALL  INTEGER (SHOBE_HOO BS_XA (7) ,SHOBE_BEN_XA  (7) ) ; 

DO  J = 1 TO  7; 

TOT_SHOBE_XA  (IA)  = TOT_SHOBE_XA (IA)  ♦ SHORE_BEN_XA (J)  ; 

END; 

END; 

/• 

CHANGE!  IN  AIBD  CADBE  AT  NAS  BBCAOSE  OF  TBIS  AIRCRAFT 


*/ 

DO  I = 1 TO  NOB BER_OF_NAS_DBPLOTED ; 

AIHD_CADRE_ADDBD_SHOBB (I)  = 0.0; 

END; 

DO  I = 


1 TO  NOflBER  OF  NAS  DEPLOYED 
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1674. 

1675. 

1676. 

1677. 

1678. 

1679. 

1680. 
1681. 
1682. 

1683. 

1684. 

1685. 

1686. 

1687. 

1688. 

1689. 

1690. 

1691. 

1692. 

1693. 

1694. 

1695. 

1696. 

1697. 

1698. 

1699. 

1700. 

1701. 

1702. 

1703. 

1704. 


AIND_CADBE_ADDBD_SHOBE (I)  = AIND_CADBE_ADDED_SHOBE (I)  ♦ 
(TOT_SHOBE_XA (I)  - TOT_SHOBE_XB (I) > ; 

END; 

END  AIHD.CALCOLATIONS; 

/•  BOOTINE  TO  CALCOLATE  AIN 0 CAOBE  BEQOIBEHBNTS  */ 

AIHD_FIXBD:  PBOC ( AIBCB APT, AIN D_HEN, AVAIL)  ; 

DCL  AIBCBAPT  FLOAT (6) ; 

DCL  AIBD_HEN  (7)  FLOAT  (6); 

DCL  AVAIL  FLOAT  (6)  ; 

SEA_H008S_XB  = (18.575  ♦ . 93871*AIBCBAFT  - 
.00062 17*AIHCBAFT**2)  / AVAIL; 

CALL  IHTEGBB<SBA_HOaHS_IB,AIBD_NBN(1))  ; 

IF  AIBCBAPT  < 76  THEN  AIHD_SEM  (2)  = 1; 

ELSE  IF  AIBCBAPT  < 201  THEN  AIHD_HEN (2)  = 2; 

ELSE  IF  AIBCBAPT  < 301  THEN  AIND_NBN (2)  = 3; 

ELSE  AIHD_NEN (2)  = 4; 

SB A_HOUBS_X B = (11.855  ♦ ,08987*AIBCBAFT  ♦ 

. 0003 166*AIBCBAFT**2) /AVAIL; 

CALL  I NTBGEB (SEA_HOUBS_XB,AIHD_HBN (3)  ) ; 

SEA_HO0BS_XB  = 4. 7 2708 *A IHD_BEN  (3)  / 

AVAIL  ♦ SEA_HOOBS_XB; 

CALL  INTEGER (SEA_HODBS_IB, AIHD_HBN (3) ) ; 

SEA_HOOBS_XB  = (10.2240  ♦ . 2386*AIBCBAFT)  /AVAIL; 

CALL  INTEGER (SEA_HOOBS_IBf AI80_NEN (4)  ) ; 

SB A _HOUflS_XB  = (4.86  ♦ . 2257* AIBCBAPT)  /AVAIL; 

CALL  INTEGBR(SEA_HOORS_IB,AIBD_HBN(5) ) ; 

BHD  AIND.PIXBD; 

/•  BOOTINE  TO  BOONDOFF  FRACTIONAL  PEOPLE  •/ 

INTEGER:  PBOC (HEN, RHBN) ; 


DCL  HEN 

FLOAT (6) 

DCL  BNEN 

FLOAT (6) 

1 


1705. 

1706. 

1707. 

1708. 

1709. 

1710. 

1711. 

1712. 
17 1 i. 
1719. 

1715. 

1716. 

1717. 

1718. 

1719. 

1720. 

1721. 

1722. 

1723. 

1724. 

1725. 

1726. 


1731. 

1732. 

1733. 

1734. 

1735. 
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RHEN  = 0; 

If  HEN  > 7.5  THEN 
BNEN  * 

TBUNC  ( HEN  ♦ .4999);  „ 

ELSE  DO; 

IJ  = 0; 

II  = 7; 

DO  I = 1 TO  6; 

II  = II  - 1; 

If  IJ  = 0 THE* 

If  HE*  > I_LET EL_BOUNDOFf (II) 

THEN  DO; 

BHEN  = II  ♦ 1; 

IJ  = 1; 

END; 

END; 

END; 

If  IJ  = 0 6 HEN  -=  0 THEN  BHEN  = 1; 

END  INTEGER; 

/•  ROUTINE  TO  SPREAD  AN  AGGBEGATE  HORKLOAD  TO  HOBK  CENTERS  */ 
AD_SPBEAD:  PROC (RORKLOAD.SBA, BORIC  LOAD_SHORE, PACTOB_9PA< 

PACTOR_ OTHER) ; 


1727. 

DCL 

HOBKLOAD.SEA 

(23) 

PLOAT  (6) 

1728. 

DCL 

HOBK LOA D_SHORB 

(23) 

PLOAT (6) 

1729. 

DCL 

PACTOB_f PA 

(23) 

PLOAT (6) 

1730. 

DCL 

PACTOR_OTHEB 

(23) 

PLOAT (6) 

DCL  LOA D_F ACTOR_OTHER  PLOAT (6) ; 
DCL  LOAD_f ACTOB_TfA  PLOAT (6); 
/•  CALCULATE  THE  LOAD  PACTORS  »/ 

LOAD_f ACTOB_Tf A * 1.0; 
LOAD_PACTOH_OTHEB  * 1.0; 


^ 


• ■ 


- 


1 
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i' 

li 

I 

I 

)' 


w 

• I 

’ 


! 

: 


1736. 

1737. 

1738. 

1739. 
17*0. 
17*1. 
17*2. 
17*3. 
17**. 
17*5. 
17*6. 
17*7. 
17*8. 
17*9. 

1750. 

1751. 

1752. 

1753. 
175*. 

1755. 

1756. 

1757. 

1758. 

1759. 

1760. 

1761. 

1762. 

1763. 
176*. 

1765. 

1766. 


00  I - 1 TO  22; 

IP  HOBIUOAD_SBA(I)  ■»*  0 
THSB  DO; 

LOAD_FACTOB_»PA  = LOAD_FACTOR_?FA  - 
PACTOB_f PA  (I)  ; 

LOAD_PACTOB_OTHEB  = LOAD_PACTOB_OTHEB 
PACTOB_OTHEB  (I) ; 

EBD; 

END; 

LOAD_PACTOB_TPA  * 1.0  / LOAD_PACTOB_f PA; 
LOAD_PACTOB_OTHES  = 1.0  / 10 A D_PACTOB_OTHBB ; 
IP  AIBCBAPT_IBDI  > 2 THEN  GO  TO  AO.OTHBB; 

00  I = 1 TO  22; 

IP  BOBKI>OAD_SSA  (I)  = 0 THE* 

BOBKLOAD_SBA (I)  *FACTOB_»FA (I)  * 

HOBKLOAD_SEA (23) *LOAD_FACTOB_TFA ; 

IP  BOBKLOAD_SHOBE (I)  * 0 THEM 
BOBKLOAD.SHOBE(I)  =PACTOB_»PA (I)  * 

BOBKLO AD_S  HOBE (23) *LOAD_FACTOB_»FA ; 

EBD; 

GO  TO  EBD_AD_SPREAD; 

AD.OTBEB: 

DO  I = 1 TO  22; 

IP  UOBKLOAD_SEA (I)  » 0 TBBB 
BOBKLOAD.SBA (I)  =PACTOB_OTHBB (I)  * 

BOBKLO AD_SEA (23) *LOAD_PACTOB_OTHEB; 

IP  BORKLOAD_SHOBB (I)  =*  0 TBBB 
BOBRLOAD_SIOBI(I)  =FACTOR_OTHBB (I)  * 

HORKLOAD_SHOBB  (23)  •LOAD_PACTOR_OTMBB ; 

BBD; 

GO  TO  BBD.AD.SFBEAD; 
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1767. 

1768. 

1769. 

1770. 

1771. 

1772. 

1773. 

1774 . 

1775. 

1776. 

1777. 

1778. 

1779. 

1780. 
178  1. 

1782. 

1783. 

1784. 

1785. 

1786. 

1787. 

1788. 

1789. 

1790. 

1791. 

1792. 

1793. 

1794. 

1795. 

1796. 

1797. 


end_ad_sphead: 

END  AD_SPBEAD; 

/• 

ROUTINE  TO  BESET  VALUES  IN  THE  HODEL  BASED  ON  SENSITIVITI 
VARIABLES 


*/ 


BESET:  PROC; 

DO  I = 1 TO  23;  * 

BAB_PH_HOBKLOAD_SEA (I)  = BAI_PH_BOBKLOAD_SEA (I)  • 

PACTOB1; 

BAB_Pa_HOBKLOAD_SHOBE  (I)  * RAB_PH_BOBKLOAD_SBOBE (I|  • 

PACTOB1; 

B AU_CB_NOBKLOAD_S  EA (I)  = BAH_Ca_NO BE LOADS EA(I)  • 

PACTOB1; 

BAB_CB_BOBKLOAD_SHOBE (I)  = BAH_CH_HOBKLOAD_SHOBE (I)  • 

FACTOR  1 ; 

B AH_TH_HOBKLOAD_SEA (I)  = R AB_Tfl_HO£KLOAD_SEA (I)  * 

F ACTOR 1; 

RAN_TH_BOBKLOAD_SHORE  (I)  * B AH_TH_HORK LOAD_SHOB E (I ) • 

FACTOB1 ; 


OTREH_HOOBS_SEA (I)  = 0.0; 

0TBEB_8OUBS_SH0BE (I)  = 0.0; 

DO  J = 1 TO  10; 

GBADE_LEVEL_SEA  (I, J)  « 0.0; 

GRADB_LEV EL_SHOBE (I , J)  * 0.0; 

END; 

END; 

SOBTI BS_B  BEK_S  EA  = SORTIES_BBEK_SEA*FACTOB2; 
SOBTI ES  _■ EEK_S HOB  E = SOBTIES_BEEK_SHOBE*FACTOB3 ; 
FLYING_HOOBS_JBBK_SEA  - SORTIES _tBBK_SBA* 

SORTIE_LEBGTH_SEA ; 


1 





1798 


l 


1799. 

1800. 
1801. 
1802. 

1803. 

1804. 

1805. 

1806. 

1807. 

1808. 

1809. 

1810. 
1811. 
1812. 

1813. 

1814. 

1815. 

1816. 

1817. 

1818. 

1819. 

1820. 
1821. 
1822. 

1823. 

1824. 

1825. 

1826. 

1827. 

1828. 
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PLYING_HOUHS_BEEK_SHOBE  = SORTI ES_HEEK_SHORB* 

SOHTIE_L ENGTH_SHOBB; 

END  BESET; 

PAGEONE_BBPORT:  PBOC; 

DCL  FLYING_HOU BS_AH  EEK_S  EA  PLOAT(6); 

DCL  PL Y IMG_HOOBS_AHEEK_SHOB E PLOAT(6>; 

POT  PILE (OUTPILE)  EDIT (STOBE_TITLE)  (P AGE , COL ( 1 0)  , A)  ; 

POT  PILE (OOTPILE)  EDIT  ( 

•I.  PLEBT  DESCRIPTION  AND  OPEBATIONAL  ASSUMPTIONS • ) 
(SKIP, SKIP, COL(IO) , A) ; 

POT  PILE (OUTPILE)  EDIT ( 

• A.  AIBCB APT  TYPE* ,TYPE_OP_AIBCBAPT) 

(SKIP, SKIP, COL (10) , A, COL (55) ,A) ; 

POT  PILE (OOTPILE)  EDIT ( ' B.  AIBCBAPT  PER  SQUADRON*, 

AIBCBAPT_PEB_SQOADBON)  (SK IP, COL ( 10) ,A,COL (55)  ,P (6)  ) ; 
POT  FILE (OOTPILE)  EDIT ( ' C.  NOBBBR  OP  SQOADBONS* , 

NONBEB_OP_SQO ADBONS)  (SKIP, COL ( 10) , A, COL (55) ,P (6) ) ; 

POT  PILE (OOTPILE)  BDIT ( 

• D.  TOTAL  FLEET  SIZE* ,TOTAL_AIBCBAPT) 

(SKIP, COL ( 10) , A, COL (55)  ,P(6)  ) ; 

POT  PILE  (OOTPILE)  BDIT (•  SEA  SHOBE*) 

(SKIP, SKIP, COL (55) , A) ; 

POT  PILE (OOTPILE)  EDIT ( 

• E.  SOBTIE  BATE (SOBTIES/AC/PLYING  DAT)*, 
SOBTIB_BATE_SBA,SOBTIE_BATE_SHOBE) 

(SKIP, COL ( 10) , A, COL (55) ,P (6, 2) , COL (71) , P (6, 2) ) ; 

POT  PILE (OOTPILB)  EDIT  (•  P.  BEAN  SOBTIE  LENGTH  (HOURS)*, 

SORTIE_LEBGTH_SEA,SOHTIE_LENGT8_S HOBE) 

(SKIP, COL ( 10), A, COL (55), P (6, 2) , COL (7 1) , P (6, 2) ) ; 

POT  PILE  (OOTPILB)  EDIT(*  G.  FLUNG  DATS  PER  HEEK*, 

PLTING_DATS_BEBK_SEA,PLTING_DATS_NEEK_SHOBB) 


. V W- 
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1829. 
18  JO. 
1 8 J 1 - 
1832. 
18JJ. 

1834. 

1835. 

1836. 

1837. 

1838. 

1839. 

1840. 

1841. 

1842. 

1843. 

1844. 

1845. 

1846. 

1847. 

1848. 

1849. 

1850. 

1851. 

1852. 

1853. 

1854. 

1855. 

1856. 

1857. 

1858. 

1859. 


(SKIP, COL (10) , A, COL (55) ,P(6, 1)  , COL (71) , P(6,1)) ; 

POT  PILE (OUT PILE)  EDIT ( 

• H.  TOTAL  PLTINC  HOURS/S QUADROM/B EEK • , 
PLIING_HOOBS_BEEK_SEA, PLTINS_HOUBS_8EEK_SHORE) 

(SKIP, SKIP, COL (10) , A, COL (55) ,P(6,2) ,COL (7 1 ) , P (6 , 2) ) ; 

FLIING_HOOBS_ABEEK_SEA  * PLYING_HODBS_REBK_SEA  / 

AIRC8APT_P8R_SQUA DBON ; 

PLIING_HOOBS_ABBBK_SHORB  = PLTING_HOORS_BEEK_S  HOR  E / 

AIRCRAPT_PER_SQOADRON; 

PUT  PILE (OUTPILE)  EDIT  ( 

• I.  TOTAL  PLTING  HOUBS/AIBCR APT/HEEK • , 
PLYING_HOURS_ABBBK_SEA,FLYING_HOURS_ABE£K_SHORB) 
(SKIP, SKIP, COL (10) , A, COL (55) ,P(6,2) , COL (71) , P(6,2)  ) ; 

END  PAG EON B_ REPORT; 

PAGET¥0_RBP0BT:  PHOC; 

POT  PILE  (OOTPILE)  EDIT  (STORE_TITLB)  (PAGE, COL  (10) , A) ; 

PUT  PILE (OOTPILE)  EDIT ( 

•II.  RELIABILITY  AMD  MAINTAINABILITY  VALUES', 

•A.  INPUTS')  (SKIP, SKIP, COL(1) , A, SKIP, SKIP, COL  (5) , A) ; 

POT  PILE (OOTPILE)  EDIT  ( • BORK  CENTBR ' , • PN • , • CH/TN • ) 

(SKIP, SKIP, COL  (6) , A, 

COL (43) , A, COL (67) , A) ; 

POT  PILE (OOTPILE)  BDIT ( • NHH/B  BNH/D  RHH/PH  NBH/S  BBB/PH* , 

• BNH/S  RTBP  BTTR • ) (SKIP, COL (33) , A, A)  ; 

END  PAG BTHO_ REPORT; 

P AGETNO_DET AIL_REPORT:  PROC; 

DO  K = 8,9,10,11,12,15,16,17,18,19,21,23; 

PUT  PILE (OOTPILE)  BDIT  (BORK_CEMTER_CODBS (K) , 
NORK_CBHTEB_NABBS (K) , 

STORE_PB_HBR_BEEK (K) , STOBE_PB_BBH_DAI (K) , 
STORE_PB_BBH_PH (K) , STORB_PB_BBH_S (K)  , 
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1660. 
1661. 
1862. 
186  J. 

1864. 

1865. 

1866. 
1867. 
18t>8. 

1869. 

1870. 

1871. 

1872. 

1873. 

1874. 

1875. 

1876. 

1877. 

1878. 

1879. 

1880. 
1881. 
1882. 

1883. 

1884. 

1885. 

1886. 

1887. 

1888. 

1889. 

1890. 


STOHE_CH_NHH_PH (K) , STOBE_CN_HHH_S (K) , 
STOBE_CH_BTBP (K) ,STOBE_CH_HTTR (K)  ) 

(SKIP,COL(5)  ,M3)  ,COL(9)  ,*(23)  , (8)  (I ( 1)  ,P (5, 2) ) ) ; 

EDO; 

IF  NUC_PTB  -.=  0 THEM  DO; 

PUT  PILE (OUTFILE)  EDIT (• WUC  DATA •)  (SKIP, SKIP, COL ( 1)  , *) 

DO  I = 1 TO  HUC_PTB; 

PUT  FILE (OUTFILE)  EDIT (BUC_XII (I) , WUC_J_TT PE(I)  , 

BOC_V 1(1) , NOC_V2 (I) ) (SKIP, COL (15) , *,COL (20) , *, 

COL (25) , A,COL  (30) ,*)  ; 

END; 

END; 

P2DB_END: 

END  P*GETW0_DET*IL_BEP08T; 

PAGBTBO_SPBEAD_BEPOBT:  PBOC; 

PUT  FILE (OUTFILE)  EDIT ( 

•B.  PH  AND  CH  SPBEAD  BI  WORK  CENTER  (X)*) 

(SKIP, SKIP, SKIP, COL(1) ,*)  ; 

POT  FILE (OUTFILE)  EDIT ( 

• 110  120  121  130  131  140  210  211  220', 

• 230  310  320')  (SKIP, SKIP, COL (25)  ,A,A)  ; 

PUT  FILE (OUTFILE)  BDIT (•  •)  (SKIP,*); 

IF  AIHCBAPT_INDX  > 2 THEN  GO  TO  OTHEB_SPBEAD; 

VFA_SPBEAD: 

PUT  FILE (OUTFILE)  EDIT  ( 

■ TH  - VP, VA  ' , NOBKCBNTBB_TH_SPBEAD_VFA (8)  , 
BOBKCBNTEB_Tfl_SPBE*D_VF* (9) , 
BOBKCBNTEB_TH_SPBE*D_VFA (10)  , 

BOBKCEHTEH_TH_SPBE*D_V  F* ( 1 1)  , 
iOBKCENTBB_TH_SPBE*D_VF* (12)  , 
NOBKCENTEB_TH_SPBE*D_VF* (13) , 


1891. 

1892. 

1893. 

1894. 

1895. 

1896. 

1897. 

1898. 

1899. 

1900. 

1901. 

1902. 

1903. 

1904. 

1905. 

1906. 

1907. 

1908. 

1909. 

1910. 

1911. 

1912. 

1913. 

1914. 

1915. 

1916. 

1917. 

1918. 

1919. 

1920. 


-152- 

BORKCBNTEB_TB_SPBEAD_f FA (15) , 
BOBKCBNTEB_TM_SPREAD_¥FA (16) , 
«OBKCENTBR_TM_SPBEAD_¥FA(17) , 
BOBKCENTEB_TH_SPBEAD_¥FA(18)  , 
WOBKCENTE8_TH_SPBBAD_¥ FA (2 1) , 
BOBKCENTBR_TH_SPBEAD_¥FA (22) ) 

(SKIP, COL ( 10)  , A (COL (26) ,12  (F  (4 , 3)  , X ( 1 ) ) ) ; 
POT  FILE (OUTFILB)  EDIT ( 

• PM  - »F,?A  • ,BORKCEMTER_PH_SPBEAD_VFA(8)  , 

W ORKCE  NTEB_ PH_SPBEAD_V  FA (9) , 
BORKCENTEB_PH_SPREAD_¥FA (10) , 

N OBKCE NT ER_PH_SPBEAD_YFA(11) , 

H OBKCE  NT  EB_PM_SPBE A D_ V FA (12)  , 
10NKCEMTEB_PM_SPRE AD_¥FA (13)  , 

B OBKCE NT  B8_PH_S  PBEAD_ Y FA (15)  , 
HORKCENTBB_PN_SP8EAD_¥FA (16)  , 
B08KCENTER_P8_SPaEAD_V  FA (17)  , 

B OBKCE NTEB_PM_SPBEAD_V FA ( 1 8)  , 
BORKCENTEB_PM_SPREAD_V FA (21)  , 
NOBKCEHTBB_PH_SPREAD_¥  FA (2  2)  ) 

(SKIP, COL (10) , A, COL (26) ,12  (F  (4 , 3) , I ( 1) ) ) ; 
PUT  FILB (OUTFILE)  EDIT ( 

• CM  - VF,YA  • ,BOBKCENTER_C8_SPREAD_VFA (8) , 

NORKCENTBR_CH_SPREAD_VFA(9)  , 

BORKCE NTER_CH_SPBEAD_V  FA ( 10)  , 
NOBKCBNTEB_CH_SPBEAD_¥FA(1 1)  , 
MOBKCENTBR_CH_SPBEAD_?FA (12)  , 


1921 
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1922. 
192  J. 

1924. 

1925. 

1926. 

1927. 

I 

1928. 

1929. 

1930. 

1931. 

1932. 

1933. 

1934. 

1935. 

1936. 

1937. 
19  38. 

1939. 

1940. 

1941. 

1942. 

1943. 

1944. 

1945. 

1946. 

1947. 

1948. 

1949. 

1950. 

1951. 

1952. 


HOBKCENTEB_CB_SPHEAD_¥PA (18)  . 

WOHKCENT EB_CH_SPHEAD_V  PA  (21) . 
NOBKCENTEB_Cfl_SPBEAD_VPA (22) ) 

(SKIP, COU( 10) , A, COL (26) ,12  (P  (4,3) , X ( 1) ) ) ; 

GO  TO  CONT_PAGETHO; 

OTHEB_ SPREAD: 

PUT  PILE (OUTPILE)  EDIT  ( 

• Til  - ALL  OTHER  • , BORKCENTEB_TB_SPREAD_OTHER (8)  , 

HORACE NT ER_TB_SPREAD_OTHER (9)  , 
HOHKCENTEH_TS_SPBEAD_OTHEB (10)  , 
NOBKCENTER_TH_SPREAD_OTHEB (1 1)  , 
HOBKCENTER_Tfl_SPHBAD_OTHER (12)  , 
HORKCENTEB_TB_SPREAD_OTHEB (13)  , 
BOBKCB«TEB_TH_SPREAD_OTHER(15)  , 
HOBKCENTEH_TB_SPRBAD_OTHER (16)  , 
HOHKCENTEfi_TH_SPREAD_OTHBB (17)  , 
HORKCEHTER_TH_SPHEAD_OT8ER (18)  , 
H0RKCBNTER_TB_5PREAD_0THER (21)  , 
HOHKCENTEB_TH_SPREAD_OTHEB (22)  ) 

(SKIP, COL (10) ,A,COL(26) ,12  (P (4 , 3) , t ( 1) ) ) ; 

PUT  PILE (OUTPILE)  EDIT ( 

• PB  - ALL  OTHER  • , HOHKCENTEB_PB_SPBEAD_OTHEB (8) , 

BOBKCENTER_PH_SPREAD_OTHEB (9)  , 
WORKCEHTER_PH_SP8EAD_OTHER (10)  , 
NOBKCENTBR_Pfl_SPBEAD_OTHER (11)  , 
HORKCENTBR_PB_SPREAD_OTHER (12)  , 
HORKCEHTER_PH_SPBEAD_OTHER (13)  , 
BORKCENTEB_PH_SPBEAD_OTHBB (15)  , 
HORKCBNTEB_Pfl_SPBEAD_OTHEB (16)  , 
SORKCENTER_PB_SPREAD_OTHEB (17)  , 
HORKCBNTEB_Pfl_SPREAD_OTHEB (18)  , 
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1953. 

1954. 

1955. 

1956. 
1 957. 
1953. 

1959. 

1960. 

1961. 

1962. 

1963. 

1964. 

1965. 

1966. 

1967. 

1968. 

1969. 

1970. 

1971. 

1972. 

1973. 

1974. 

1975. 


HONKCBNTER_PB_SPBE AD_OTHE8  (21)  , 
NOBKCENTEB_PM_SPR£AD_OTHEB  (22)  ) 

(SKIP.  CO L( 10)  , A, COL (26) ,12  (F  (4 . 3) . X ( 1) ) » ; 

PUT  FILE (OOTriLE)  EDIT ( 

• CB  - ALL  OTHEB  • , ■OBKCEBTEB_CH_SPBEAD_OTH Ei (8) , 
ROBKCENTEB_C8_SPBE AD_OTHEB  (9)  , 

NOBKCENT  EB_CH_SPBE AD_OTHEB (10)  , 

HORACE NTEM_CB_SPBBAD_OTBEB (11)  , 
WORKCENTEB_Ctl_SPB£AD_OTHEB (12)  . 

HOBKCENT BB_CH_SPRE AD_OTHEB (13)  , 
BORKCEBTER_CH_SPBEAD_OTHEB(15)  , 
HOKKCEMTER_CH_SPREAD_OTHER (16)  , 
BOBKCBIITEB_CB_SPBEAD_OTHEB  (17)  , 

HOBKCENT ER_CR_SPREAD_0T8EB (18)  , 

WORK CENT EB_CM_SPREAD_OT8EB (21)  , 
BORKCEBTER_C!1_SPBEAD_OTHEB  (22)  ) 

(SKIP. COL (10) ,A,COL(26) ,12  (F  (4. 3)  , X ( 1) ) ) ; 

CONT_P AGETNO: 

PUT  FILE (OUTPILE)  EDIT ( *C.  AIBD  IBPUTS') 

(SKIP, SKIP, SKIP, COL(1) , A)  ; 

PUT  FILE  (OUTPILE)  EDIT  ( • BHH  PEE  AC  PEE  WEEK' , 

I_LE»EL_BABH0UBS_9EEK)  (SKIP, COL ( 10) . A, COL (55) , F (6) ) ; 

PUT  FILE (OUTPILE)  EDIT  (' NUNBBB  OF  SQUADRONS  ON  A CARRIES • , 


1976. 


NUflBEB_SQ_ON_SBA)  (SKIP, COL ( 1 0) , A, COL (55) , F (6) ) ; 


1977.  PUT  FILE (OUTPILE)  EDIT ( 'TOT AL  NUMBER  ALL  AIBCR APT  ON  A ', 

1978.  •CABRIEBl,8U8BEB_AC_ON_SEA)  (SKIP, COL ( 10) , A, A, COL (55) , 

1979.  P (6) ) ; 

1980.  PUT  PILE (OUTPILE)  EDIT ( ' NUMBER  OP  NAS  DEPLOTED', 

1981.  NUBBEB_OP_NAS_ DEPLOT ED)  (SKIP . COL ( 10) , A, COL (55) , P (6) ) ; 

1982.  PUT  PILE (OUTPILE)  EDIT (' AIB  STATION* ,' NO.  OP  AC', 

1983.  'NO.  S Q.  ADDED')  (SKIP, SKIP, COL (20) , A, COL (40) , A ,COL (60) , 


f 


[ 


1980. 

1989. 

1990. 

1991. 

1992. 

1993. 

1994. 

1995. 

1996. 

1997. 

1998. 

1999. 

2000. 
2001. 
2002. 

2003. 

2004. 

2005. 

2006. 

2007. 

2008. 

2009. 

2010. 
2011. 
2012. 
2013. 


END; 

PUT  riLB(OUTFILE)  EDIT ( ' N UHBEfi  OP  AVIONICS  SKILLS', 

NUHBER_OP_A?IONICS_SKILLS_REQ)  (S K I P, SK i P, SKI P, COL  (10) ,A, 
COL (55) , P (6) ) ; 

EN  D_PHOC_PAGETBO: 

END  PAGETWO_SPBBAD_REPORT; 

PAGETHRES_BEPOHT:  PBOC; 

IP  AIND_PLAG  = *0'  THEN  GO  TO  PAGETHBEE_CONT; 
TOTAL_I_LEVEL_SEA  = 0.0; 

TOTAL_I_LBV  EL_SHORE  = 0.0; 

DO  I = 1 TO  5; 

TOTAL_I_LEVEL_SEA  = TOTAL_I_LEVEL_SEA  ♦ 

I_LBVEL_HANPOHEB_SEA (I)  ; 

TOTAL_I_LEVEL_SHOBE  = TOT AL_I_LEV EL_SHOBE  ♦ 
I_LEVEL_HANPOHEB_SHOBE (I)  ; 

END; 

TOTAL_PEBSONN  EL_SEA  = TOT AL_PERSONNEL_SEA  ♦ 

TOTAL_I_LEf EL_SBA ; 

TOT A L_ PERSONS EL_S  HORE  = TOT AL_PERSONN BL_SHORE  ♦ 
TOTAL_I_LEVEL_SHORB; 

PAG  ETH BE ECO NT: 

TOTAL_PEBSONNEL_SEA  = TOT AL_PEBSONN EL_SEA  • 

NUflBBR_OF_S QUA DROSS; 

TOTAL_PE8SONNEL_SHORE  = TOT AL_PEBSONH EL_SHOR E * 

NUHBEB_OP_SQUADBONS; 

PUT  PILE (OOTFILE)  EDIT (STOBE_TITLE)  (PAGE, COL ( 10) , A)  ; 

PUT  PILE (OUTPILE)  EDIT ( 


\ 


2014 
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2015. 

201b. 

2017. 

2018. 

2019. 

2020. 
2021. 
2022. 

2023. 

2024. 

2025. 

2026. 

2027. 

2028. 

2029. 

2030. 

2031. 

2032. 

2033. 

2034. 

2035. 

2036. 

2037. 

2038. 

2039. 

2040. 

2041. 

2042. 

2043. 

2044. 

2045. 


•III.  TOTAL  PLBET  MAINTENANCE  MANPOWER  Rt QUI REH EN TS • ) 
(SKIP. SKIP, COL(IO) , A) ; 

POT  FILE (OUTFILE)  EDIT ( 

• TOTAL  PERSONNEL  8HEN  CARRIER  DEPLOYED  IS 

TOTAL_PERSONNEL_SEA)  (SK I P , S KI P, COL ( 1 0 ) , A , F (8,  1)  ) ; 

POT  PILE (OUTFILE)  EDIT ( 

• TOTAL  PERSONNEL  WHEN  AT  NATAL  AIRS TAT ION  IS 

TOTAL_PERSONNEL_SHORE)  (SKIP, SKI P, COL ( 10)  , A,  F (8,  1 ) ) ; 

POT  FILE (OOTFILE)  EDIT  ( ' BY  PAYGRADE:  • , • SEA ' , • SH OR i • ) 

(SKIP, SKIP, COL (15) , A, SKIP, SKIP, COL (32) , A, COL (59) , A) ; 

PUT  FILE  (OOTFILE)  EDIT ( 

•PER  SQUADRON • , *TOTAL  FLEET*, 'PER  SQUADRON* 

•TOTAL  FLEET')  (SKIP, 

COL (19)  , A, COL  (33)  , A,COL(4d)  , A, COL  (62) , A, SKIP ) ; 

DO  K = 9 TO  2 BY  -1; 

GRADE_LEVEL_SEA  (23,  10)  = GRA D E _LE V EL_S E A (2 J , 1 0)  ♦ 

GRAD E_ LEV  EL_SEA (23 , K) ; 

GRADE_LEVEL_SHORE(23,10)  = GRADE_LEVEL_SH0i!B  (2  3,  10)  » 

GRADE_LEV  EL_SHORE (23, K)  ; 

TOTAL_FLEET_SEA  = GR  ADE_LEV  EL_SEA (23, K) * N OH B E R_OF_SQO A DRONS ; 
TOTAL_PLEET_SHORE  = GR ADE_LEV EL_S HO HE ( 23 , K)  * 

NOHBER_OF_S QUA DRONS; 

POT  PILE (OOTFILE)  EDIT ( 

' E- • , K, GR ADE_LEVEL_SE A (23 , K) , TOTAL_FLEET_S  EA, 

GRAD E_ LEV  EL _S HO RE ( 23, K ) , TOTAL_FLEET_SHOBE) 

(SKIP,  COL  (5)  ,A{2)  ,F(1)  , COL  (14)  , (4)  ( X (4)  , P ( 1 0,  2)  ) ) ; 

END; 

TOTAL_PLEET_SEA=GR ADE_LE V EL_SE A (23, 10)  * 

NOHBER_OP_SQOADRONS; 

TOT AL_FLEET_SHOBE  = GRADE_LBVEL_SHORE (23, 10)  * 

NUHBER_OP_SQU ADRONS ; 


...  BUM 


mm 


204b. 

2047. 

2048. 

2049. 
20  SO . 

2051. 

2052. 

2053. 

2054. 

2055. 

2056. 

2057. 

2058. 

2059. 
20b0. 
2061. 
20b2. 

2063. 

2064. 

2065. 

2066. 

2067. 

2068. 

2069. 

2070. 

2071. 

2072. 

2073. 

2074. 

2075. 

2076. 
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POT  FILE (OUTPILE)  EDIT ( 

• * TOTAL* ,GHADE_LEVBL_SEA  (23, 10) , TOTAL_PLEET_SEA, 
GRADE_L£VEL_SHOBE (23, 10) , TOTAL_FLE8T_SHORE) 

(SKIP,  COL  (5)  , A (7)  , COL  (14)  , (4)  ( X (4)  , P ( 1 0, 2) ) ) ; 

IF  AIM D_ FLAG  = *0*  THEN  GO  TO  EN D_P AGETHR BE_B EPORT ; 
TOTAL_FLEET_SEA  = 0.0; 

TOTAL_PLEET_S  HOB  E = 0.0; 

DO  I = 1 TO  5; 

TOTAL_PLEET_S  EA  = TOT AL_PLE ET_S EA  ♦ 

TOTAL_FLEET_I_LEVEL_SEA  (I)  ; 

TOTAL_FLEET_SHORE  = TOT AL_PLE ET_S HOR E ♦ 

TOTAL_FLEBT_I_LEV  EL_SHORE (I) ; 

END; 

PUT  PILE  (OOTPILE)  EDIT  ( 

' AISD  TAD' ,TOT AL_I_LEV  EL_S E A , TOT AL_FL  EET_S  E A, 
TOTAL_I_LEV  EL_3H0R  E,TOTAL_PLEET_SHORE ) 

(SKIP, SKIP, COL (5) ,A(8) , COL (14),  (4)  ( X (4) , F ( 1 0 , 2) ) ) ; 

AIHD_TOT  AL_C ADR  E_  ADDED  = AIMD_CADHE_ADDED_SEA; 

DO  I = 1 TO  NUMBER_OP_NAS_DEPLOYED; 

AISD_TOTAL_CADRE_ADDED  = AIMD_TOTAL_CADRE_ADDED  ♦ 

AIM  D_CA  DRE_ADDED_SHORE  (I)  ; 

END; 

POT  PILE (OUT  PILE)  EDIT  ( ' ADDED  AIMD  CADRE  PERSONNEL') 

(SKIP, SKIP, COL (5) , A (35) ) ; 

POT  PILE (OOTPILE)  EDIT ( • PER  CARRIER', AIHD_CADRE_ADDED_SEA) 
(SKIP,  COL (40) ,A (12) , COL (55) ,f (10,2) ) ; 

DO  I = 1 TO  N UMBER _OP_NAS_DEPLOX ED; 

PUT  PILE (OOTPILE)  EDIT ( • N AS- • , I, AI8D_C ADR E_ ADDED_SHORE ( I) > 
(SKIP, COL  (44)  , A (4) ,P<2) , COL  (55) ,P  (10,2) ) ; 

END; 

POT  FILE  (OUTPILE)  EDIT (• * DOES  NOT  INCLODE  PERSONNEL  IN  ', 
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zon . 

' H A l NT  EN  A NCE  OFFICE  (UC010)  WHICH  ARE  LT.  CHURS' 

2078. 

(SKIP, SKIP, COL (5) , A, A) ; 

2079. 

KND_ 

PAG ETHRBK_RB PORT: 

2080. 

2ND 

P AG ETHREE_ REPORT; 

2081. 

PAGEPOUR_ REPORT:  PBOC; 

2082. 

DC  L 

SU  BTOTAL_ON  E_HS  EA 

FLOAT (6) ; 

2083. 

DCL 

SUBTOTA  L_THO_(1S  BA 

FLOAT  (6)  ; 

2084. 

DCL 

SUBTOTAL_TH8EE_NSEA 

FLOAT  (6)  ; 

2085. 

DCL 

SU  BTOT A L_FOUR_HSEA 

FLOAT  (6)  ; 

2086. 

DCL 

HAINTENANCE_TOTAL_HSEA 

FLOAT (6) ; 

2087. 

DCL 

SUBTOTAL_OHE_HSHORE 

FLOAT (6)  ; 

2088. 

DCL 

SU  BTOT  A L_THO_HS  HO RE 

FLOAT  (6)  ; 

2089. 

DCL 

SUBTOTAL_THREE_SSHORE 

FLOAT (6) ; 

2090. 

DCL 

SU BTOT A L_FOUR_H SHORE 

FLOAT (6)  ; 

2091. 

DCL 

HAINTEN ANCE_T0TAL_H3H0RE 

FLOAT  (6)  ; 

2092. 

DCL 

SUBTOTAL_ONE_HSEA 

FLOAT  (6)  ; 

2093. 

DCL 

SOBTOTAL_TBO_HS  BA 

FLOAT (6) ; 

2094. 

DCL 

SUBTOTAL_T8REE_HSEA 

FLOAT  (6)  ; 

2095. 

DCL 

SUBTOTAL_FOUS_HSEA 

FLOAT  (6)  ; 

2096. 

DCL 

HAINTENANC E_TOT AL_HS  EA 

FLOAT  (6)  ; 

2097. 

DCL 

SU8TOTAL_OME_HSHORE 

FLOAT  (6)  ; 

2098. 

DCL 

SUBTOTA L_T«0_HSH0RE 

FLOAT (6)  ; 

2099. 

DCL 

SUBTOTAL_THREE_HSHORE 

FLOAT  (6)  ; 

2100. 

DCL 

SU BTOT A L_FOUR_H SHORE 

FLOAT  (6)  ; 

2101. 

DCL 

HAI NTEN ANCE_TOTAL_HS  HOR  E 

FLOAT (6) ; 

2102. 

PUT  FILE (OUTFILE)  BDIT (STORE 

_TITLE)  (PAGE, COL ( 10) ,A) 

2103. 

POT  FILE (OUTFILE)  EDIT ( 

2104. 

•IV.  DETAILED  SyUADRON 

MAINTENANCE  HAN POWER  ', 

2105. 

' REQUIRE HERTS' ) (SKIP, SKIP, COL ( 10) , A, A) ; 

2106. 

PUT  FILE (OUTFILE)  EDIT  (' WORK 

CENTER', 'SEA', 'SHORE') 

2107. 

(SKIP, SKIP, COl(6)  , A, 

1 


I 

4 


i 
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219  8. 
2100. 
2110. 
2111. 
2112. 
21  1 J. 

2114. 

2115. 
21  16. 

2117. 

2118. 

2119. 

2120. 
2121. 
2122. 

2123. 

2124. 

2125. 

2126. 

2127. 

2128. 

2129. 

2130. 

2131. 

2132. 

2133. 

2134. 

2135. 

2136. 

2137. 

2138. 


COL (50) , A,COL(70)  , A)  ; 

PUT  FILE (O'JTFILE)  EDIT  (• HANHOURS  BAN  POMES' , 

' IAN HOURS  BANPOHEB') 

(SKIP, COL  (43)  , A , COL  (6  i)  ,A)  ; 

SUBT0TAL_0NE_I1SEA  = 0; 

SUOrOTAL_TNO_a5EA  = 0; 

3UBTOTAL_THaSE_BSEA  = 0; 

50BIOTAL_FOUB_BSBA  = 0; 
t!AINTENANCE_TOTAL_SSEA  = 0; 

S!I8T0TAL_0NE_HSBA  = 0; 

SUBTOTAL_TBO_HSBA  = 0; 

SOBTOTAL_TH3BE_HSEA  = 0; 

SOBTOTAL_FOUB_HSEA  * 0; 

H AI NTENA  NCE_TOTAL_HSEA  = 0; 

SUB  TOT AL_ON  2_BSHOB  E = 0; 

SUBTOTAL_TWO_NSH08E  = 0; 

SUBTOTAL_THaEE_«SHOBE  = 0; 

SUBTOT AL_FOUR_HSHO  BE  = 0; 

BAI NTENA  NCE_TOTAL_BSHORB  = 0; 

SUBTOTAL_ONE_HSHOBE  = 0; 

SOBTOTAL_TWO_8SHOBE  = 0; 

SUBTOTAL_THRE  E_HSHOaE  = 0; 

SUBTOTAL_FOUB_HSHORE  = 0; 

BAINTENANCB_TOTAL_HSlfORE  = 0; 

DO  K = 1 TO  6; 

PUT  FILE (OUTPILE)  EDIT  (HOHK_CENTEfi_CODES (K)  , 
HOaK_CBNTER_NABBS (K)  , 

T0TAL_TH_K08KL0AD_SEA (K) , SR ADE_LETEL_SEA (K , 10)  , 
T0TAL_Tfl_B0BKL0AD_SH0RE (K) ,GBADE_LEVEL_SH08E (K , 10)  ) 
(SKIP, COL  (5)  , A ( 3)  , COL  (10),A(30),(4)  F(10,2)  ) ; 
SUBTOTAL  FOUB  NSEA  = SUBTOTAL  FOUB  (IS BA  ♦ 
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2 til. 
2 1 40* 
2 1 ■*  1 . 
2U2. 

2143. 

2144. 

2146. 
214b. 

2147. 
2146. 
2146. 
2160. 
2161. 
*162. 

2163. 

2164. 
2155. 
215b. 
*157. 
2133. 
2164. 
21oJ. 
2 1b  I . 
21b2. 
21bJ. 
2 1 b4. 
2 1 o5. 
2166. 
2167. 
2169. 
2169. 


GBADfc_LEVEL_SEA  (K , 10)  ; 

2 J 8 TOT  AL_POU  R_H3  EA  = 3UBT0TAL_P0Ud_HSEA  ♦ 
TOTAL_TN_NOBKLOAD_SEA <K) ; 

SUBTOTAL_FOUB_NSHOHE  - SUBTO T A L_ POU K_N3 HOB E ♦ 

gbade_level_shobe(k,  ioj  ; 

31)  3T0T  A L_FOU  R_HSHORE  = SU BTOT AL_POUH_H3HOB E ♦ 
TOTAL_TB_WOHKLOAD_SHOFE ( K ) ; 

END; 

PUT  PILE (OUT  FILE)  EDlT(*SUb  TOTAL*, ' OV  EHHEAD ' , 
3UBrOTAL_POUR_H3EA,SUBTOTAL_POUH_HSEA, 
3UBTOrAL_POUP_H3HORE, SUBTOT  AL_FOU  R_H3  Mu  P E) 

(3 KIP, SKIP, A (9) , COL (15) ,A(25)  , (4)  P ( 1 J, 2)  , SKI P , SKI P)  ; 
PUT  FILE (OUTPILE)  EDIT (*  •)  (SKIP, SKI?,  A)  ; 

DO  K = 7 TO  13; 

PUT  PILE  (OUTFILE)  EDIT (MCBK_CENTER_CGDES  (K) , 
dOHK_CENTEb_MAHES (K) , 

TOTAL_TM_il08KLOAD_SEA  (K)  , GBADE_LEV SL_SEA  (K, 10) , 
TOTAL_Ta_HOaKLOAD_SHOBE(K)  , GF ADE_L E VEL_SHO BE (K,  10)  ) 
(SKIP, COL (5) ,A(3) ,COL(10) ,A (30)  , (4)  F(10,2)  ) ; 
SUBTOTAL_ONE_aSEA  = SO  3TOTAL_ONE_HSEA  ♦ 

GBADE_LEV  EL_S  EA (K , 10)  ; 

SO  BT JTAL_ON  E_HS  EA  = SU  BTOT AL_ON E_H5  EA  ♦ 
TOTAL_Ta_HOaKLOAD_SEA (K) ; 

SU  3TOT  AL_0  NE_HSHG  BE  = SO BTOT AL_ONE_BSHOH E ♦ 
GBADE_LEVEL_SHOBE(K, 10) ; 

SU  BTOT AL_ONE_HSHOR  E = SU  BTOT AL_OM  E_HS  BOBE  ♦ 
TOTAL_TH_HOHKLOAD_SHOBE (K)  ; 

END; 

PUT  FILE (OUTFILE)  EDIT ( • SUB  TOT AL ' , *OBK_CEN TBR_N ABES  (7) , 
SUBTOTAL^ ON  E_HSEA,SUBTOTAL_ONE_HSEA, 

SU BTOT AL_ON E_HSHOBE, SUBTOT AL_OHE_BSHO HE) 


— . 

...... 
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2 170. 
2 17  1. 

2172. 
217  3. 

2174. 

2175. 
217b. 

2177. 

2178. 

2173. 
2180. 
2181. 
2182. 

2183. 

2184. 

2185. 

2186. 
2187. 
2138. 

2189. 

2190. 

2191. 

2192. 

2193. 

2194. 

2195. 

2196. 

2197. 

2198. 

2199. 

2200. 


(jKIP.SK IP, A (9) .COL (15) ,A (25) , (4)  P (10, 2), SKIP, SKIP)  ; 
PUT  PILE (OUTPILE)  EDITf  ')  (SKIP, SKIP, A)  ; 

DO  K = 14  TO  19; 

PJT  PILE  (OUTPILE)  EDIT  (HOR K_CENT ER_CODE3 (K)  , 
HOHK_CENTEB_NABES(K)  , 

TOTAL_TB_HORKLOAD_SEA (K) , G B A D E_LE V EL_S E A (K, 10) , 
TOTAL_rS_HORKLOAD_SHOBE(K)  , GH A DE_ LE V EL_3HO RE  (K,  10)  ) 
(SKIP, COL (5) ,A (3) ,COL(10)  ,A (30)  , (4)  P(10,2) ) ; 
3UBT0TAL_TH0_BSEA  = SU BTOT AL_THO_BS EA  ♦ 

G8 ADE_LEV  EL_S£A (K,  10)  ; 

3UBTOTAL_THO_HSEA  = BTOT AL_T 20_H3  BA 

TOTAL_TB_HOBKLOA  D_S  EA (K)  ; 

SUBTOTAL_THO_BSHORE  = SUBTOTAL_TWO_BSHOBE  ♦ 
GRADE_LEVEL_SHOBE(K,  10) ; 

SUBTOTAL_T  HO_HSHOR  E = SUBTOTAL_THO_HSHOBE  ♦ 
TOTAL_TB_HOBKLOAD_SHORE (K)  ; 

END; 

PUT  PILE  (OUTPILE)  EDIT(*SUB  TOTAL • , HOBK_CENTER_N A BES  ( 1 4)  , 
SUBTOTAL_THO_USEA, SUBTQTAL_THO_8SEA, 
SUBTOTAL_TNO_HSHORE,SUBTOTAL_THO_BSHORE) 

(SKIP, SKIP, A (9) , COL (15) ,A (25) , (4)  P (10,2)  .SKIP, SKIP)  ; 
PUT  PILE (OUTPILE)  EDIT(‘  •)  (SKIP, SKIP,  A)  ; 

DO  K = 20  TO  22; 

PUT  PILE (OUTPILE)  EDIT (BOBK_CENTEB_CODES (K) , 

HOB K_CEMTER_N ABES (K)  , 

TOTAL_TB_HOBKLOAD_SEA (K)  , GRADELEV BL_SBA (K,  10)  , 
TOTAL_TB_HOBKLOAD_SBORE (K)  ,GBADE_LEVBL_SHORE(K, 10) ) 
(SKIP, COL (5) , A (3) , COL (10)  ,A(30)  , (4)  P(10,2) ) ; 
5UBTOTAL_THREE_BSBA  « SUBTOTAL_THREE_8SEA  ♦ 

GR A DE_LEV BL_SE A (K, 10)  ; 

SUBTOTAL  THREE  HSEA  = SUBTOTAL_THREB  HSBA  ♦ 


I 


I 


1 


2201. 
2202. 
220  J . 
2204. 


. 


2205. 

2206. 


2207. 


2208. 

2209. 


2210. 

2211. 

2212. 
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TOTAL_TH_HOBKLOAD_SEA  (K)  ; 

SOBTOTAL_TBBEB_BSHOBE  = SOBTOTAL_THBEB_BSHOBE  ♦ 

SB  A l)E_LEV BL_SHOBE ( K, 10) ; 

SOBTOTAL_TdBEE_HSHORB  = SU  BTOTAL_THBEE_HSUOBE  ♦ 
TOTAL_TB_WOBKLOAD_SHOBE (K)  ; 

BBD; 

POT  FILE (OJTPILE)  EDIT ('SUB  TOTAL ', BOBK_CEBT ER_N ABES (20 ) , 
SOBTOTAL_THBEE_HSEA,SUBTOTAL_THREE_BSEA, 
SOBTOTAL_THBEE_HSHORE,SOBTOTAL_THREE_BSHOBE) 

(SKIP, SKIP, A(9) , COL (15) ,A(25) , (4)  F(10,2) .SKIP, SKIP) ; 
POT  FILE (OOTPILB)  EDIT  ( ' •)  (SKIP, SKIP, A) ; 

BAINTBMABCE  TOT AL_BSEA  = SOBTOTAL.OBE  BSE A ♦ 


2213. 

2214. 

2215. 

2216. 

2217. 

2218. 

2219. 

2220. 
2221. 
2222. 

2223. 

2224. 

2225. 

2226. 

2227. 

2228. 

2229. 

2230. 

2231. 


SOBTOTAL_THO_BSEA  ♦ SOBTOTAL_THBEB_BSEA  ♦ 
SOBTOTAL_FOUB_BSEA; 

BAIMTENABCE_TOTAL_HS£A  = SOBTOTAL_OBE_HSEA  ♦ 

SOBTOTAL_TWO_HSEA  ♦ SOBTOTAL_THBEE_HSBA  ♦ 
SUBTOTAL_FOOR_HSBA; 

BAINTEHANCB_TOTAL_BSHOBE  = SO BTOT AL_0 NB_fl SHORE  ♦ 

SOBTOTAL_TBO_BSHORE  ♦ SOBTOTAL_THBEE_BSHOBB  ♦ 

SOBTOT AL_PO0B_flS8ORE; 

B AINTBMANCE_TOTAL_HSHOBE  = SOBTOTAL_OBE_HSHORE  ♦ 

SOBTOTAL_THO_HSHORE  ♦ SOBTOTA L_THREE_H SHORE  ♦ 

SOBTOT AL_FOUB_HSBOBE; 

POT  FILE(OOTFILE)  EDIT ( ' ORGANIZATIONAL*, 'BAINTENANCE  TOTAL', 
BAIITBNABCE_T0TAL_HSEA,BAI1ITEIAIC8_T0T  AL_H  S E A , 

B AIHTBB ABCE_TOTAL_BSBOBE, BAIHTEBABCE_TOT AL_BSHO  RE) 

(SKIP, A ( 16) , SKIP, A (17) , COL (40) , (4)  F(10,2))  ; 

IF  AIBD_FLAG  = 'O'  THEN  GO  TO  EBD_PAGBFOOB_BEPOBT ; 

POT  FILE (OUTFILE)  EDIT  ( ' AIBD  TAD  HEtfOIREBBBTS • ) (SKIP, SKIP, 

A (35))  ; 

POT  FILE(OOTFILE)  BDIT ( ' POBBH  PLAITS' , I_LETEL_HANPO«EB_SEA  (1) , 


22  32. 
22J3. 

2234. 

2235. 
223b. 
2237. 
2233. 

2239. 

2240. 

2241. 

2242. 

2243. 

2244. 

2245. 

2246. 

2247. 
2243. 

2249. 

2250. 

2251. 

2252. 

2253. 

2254. 

2255. 

2256. 

2257. 

2258. 

2259. 

2260. 
2261. 
2262. 


I_LBVBL_HANPOHBB_SHORE(1)  ) 

(SKIP,  A (16)  , COL (50) , P ( 1 0, 2) , COL (70) , P ( 1 0, 2) ) ; 

PUT  PILE  (OUTPILE)  EDIT  ( • A IBPB  ABES  • , I_LEVBL_HANPOtlEB_SEA  (2) 
I_LEV  EL_H A N POW  SB_SHOBE(2) ) 

(SKIP, A (16) ,COL (50) , P ( 10, 2) , COL (70) , P ( 10, 2) ) ; 

PUT  PILE  (OUTPILE)  EDIT  (•  AVIONICS  • , I_LEVRL_NANPOHBR_SEA  (3) 
I_LEV EL _fl AN PONE R_ SHORE  (3) ) 

(SKIP,  A (16)  , COL (50) ,P(10,2) , COL (70) ,P(10,2)) ; 

PUT  PILE (OUTPILE)  EDIT (• ARB AHENT  • , I_LEVBL_HANPOVEH_SEA (4) 
I_LBVEL_H AN POHEB_ SHORE  (4)  ) 

(SKIP, A (16) , COL (50) , P (1 0, 2) , COL (70) , P ( 10 , 2)  ) ; 

PUT  PILE (OUTPILE)  EDIT  ( 1 AVI ATOB  EQUIPBENT ' , 
I_LEVBL_HANPOHER_SEA (5)  , 

I_LEVEL_BANPOHEH_SHORE (5)  ) 

(SKIP, A (16) , COL (50) ,F (10,2) , COL (70) , P ( 10, 2)  ) ; 

E ND_ PAG EPOUR_ REPORT: 

BHD  P AG EPOUR_ REPORT ; 

PAGEFI VE_REPOBT:  PROC; 

POT  PILE  (OUTPILE)  EDIT  (STORB_TITLE)  (PAGE, COL ( 10) , A) ; 

POT  PILE (OUTPILE)  EDIT ( 

•V.  WORK  CENTER  HOUR  BRBAKDOHBS  •) 

(SKIP, SKIP, COL(IO) , A) ; 

POT  PILE (OUTPILE)  EDIT ( 

•SEA', 'SHORE')  (SKIP, SKIP, COL (48) , A, COL (83) ,A) ; 

PUT  PILE (OUTPILE)  EDIT ( 

• HORK  CENTER', • CH','  PH','  AS' , • OTH' , 'TOT' , 

• CH','  PH','  AS', 'OTH', 'TOT') 

(SKIP, SKIP ,COL (6) , A, COL (31) , (10)  (X (4) , A (3) ) ) ; 

DO  I = 1 TO  22; 

PUT  PILE (OUTPILE)  EDIT (*OBK_CEHTBR_CODES (I)  , 

BORK_CENTEB_H ABES (I)  , 
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2263. 

2264. 

2265. 

2266. 

2267. 

2268. 

2269. 

2270. 

2271. 

2272. 

2273. 

2274. 

2275. 

2276. 

2277. 

2278. 

2279. 

2280. 
2281. 
2282. 

2283. 

2284. 

2285. 

2286. 

2287. 

2288. 
2289. 
'2290. 

2291. 

2292. 

2293. 


TOTAL_CB_BOBKLOAD_SEA (I) ,TOTAL_PB_«OBKLOAD_SEA  (I) , 
AS_HOUBS_SBA (I) ,OTHBB_HOOBS_SEA (I) , 
TOTAL_TB_HOBKLOAD_SEA (I) , 

TOTAL_CB_NOBKLOAD_SHOBE (I) , 

TOTAL_PB_BOBKLOAD_SBOBE(I) , 

AS_HOOBS_SHOB8(I)  , OTHBB_BOOB5_SHOHB  (I) , 
TOTAL_TB_BOBKLOAD_S 80 BE (I) ) 

(SKIP. COL (5) , A (3) .COL  (9) .A  (23)  , (10)  (X ( 1) ,P (6, 1) ) ) ; 

END; 

POT  PILE (OOTPILE)  EDIT ( 

• BAB POM  EH  SENSITIVITY  TO  80BKL0AD  •) 

(SKIP, SKIP, SKIP, SKIP, SKIP, COL(IO) , A) ; 

POT  PILE (OOTPILE)  EDIT ( 'SEA' , • SHOES' ) 

(SKIP, SKIP, COL (43) ,A,COL(76) ,A) ; 

POT  PILB (OOTPILE)  EDIT ( 

• HOBK  CENTEB', 'BIBOS  HOOBS','  BBQ  BOOBS  ', 

•PLOS  BOOBS' , 'BIBOS  BOOBS*,'  BBQ  BOOBS  *,*PLDS  BOOBS') 
(SKIP, SKIP, COL (6) , A, COL (31) , (6)  (A(11))); 

DO  I = 8,9,10,11,12,15,16,17,18,19,21; 

POT  PILE (OOTPILE)  EDIT (BOBK_CBBTBB_CODES (I) , 

BOBK_CENTBB_B ABBS (I) , 

BINOS_HOOBS_SBA (I) , 

TOT AL_TB_B  OBK LOAD_S BA (I) , 

PLOS_BOOBS_SEA (I) , BINOS_HOOBS_SHOBE (I) , 
TOTAL_Tfl_BOBKLOAD_SaOBK (I) , PLOS_BOOBS_SHOBB (I) ) 

(SKIP, COL (5)  , A (3)  , COL(9)  , A (18)  , (6)  (X  ( 1)  . P(1 0,  1) ) ) ; 

BID; 

BID  PA6EPI V E_B BPOIT; 

KID BOB: 

EBD  IAVBAB; 

/* 


; 


u^*a 


I 


